Setup stylish-haskell

22 files changed, 159 insertions, 159 deletions

diff --git a/common/src/Common/Message.hs b/common/src/Common/Message.hs
index 9ae735d..745e457 100644
--- a/common/src/Common/Message.hs
+++ b/common/src/Common/Message.hs
@@ -2,10 +2,10 @@ module Common.Message
   ( get
   ) where
 
-import Data.Text (Text)
+import           Data.Text                  (Text)
 
-import Common.Message.Key (Key)
-import Common.Message.Lang (Lang(..))
+import           Common.Message.Key         (Key)
+import           Common.Message.Lang        (Lang (..))
 import qualified Common.Message.Translation as Translation
 
 get :: Key -> Text
diff --git a/common/src/Common/Message/Key.hs b/common/src/Common/Message/Key.hs
index 4127808..991c407 100644
--- a/common/src/Common/Message/Key.hs
+++ b/common/src/Common/Message/Key.hs
@@ -2,7 +2,7 @@ module Common.Message.Key
   ( Key(..)
   ) where
 
-import Data.Text
+import           Data.Text
 
 data Key =
 
diff --git a/common/src/Common/Message/Translation.hs b/common/src/Common/Message/Translation.hs
index 900a9e9..16a56dd 100644
--- a/common/src/Common/Message/Translation.hs
+++ b/common/src/Common/Message/Translation.hs
@@ -4,11 +4,11 @@ module Common.Message.Translation
   ( get
   ) where
 
-import Data.Text (Text)
-import qualified Data.Text as T
+import           Data.Text           (Text)
+import qualified Data.Text           as T
 
-import Common.Message.Key
-import Common.Message.Lang (Lang(..))
+import           Common.Message.Key
+import           Common.Message.Lang (Lang (..))
 
 get :: Lang -> Key -> Text
 get = m
@@ -162,7 +162,7 @@ m l Form_AlreadyExists =
 m l Form_CostMustNotBeNull =
   case l of
     English -> "Cost must not be zero"
-    French -> "Le coût ne doît pas être nul"
+    French  -> "Le coût ne doît pas être nul"
 
 m l Form_Empty =
   case l of
@@ -462,7 +462,7 @@ m l Payment_PunctualMale =
 m l Payment_Title =
   case l of
     English -> "Payments"
-    French -> "Paiements"
+    French  -> "Paiements"
 
 m l Payment_User =
   case l of
@@ -472,7 +472,7 @@ m l Payment_User =
 m l (Payment_Worth subject amount) =
   case l of
     English -> T.concat [ subject, " worth ", amount ]
-    French -> T.concat [ subject, " comptabilisant ", amount ]
+    French  -> T.concat [ subject, " comptabilisant ", amount ]
 
 m l Search_Monthly =
   case l of
@@ -517,7 +517,7 @@ m l SignIn_EmailInvalid =
 m l SignIn_EmailPlaceholder =
   case l of
     English -> "Email"
-    French -> "Courriel"
+    French  -> "Courriel"
 
 m l SignIn_EmailSendFail =
   case l of
diff --git a/common/src/Common/Model.hs b/common/src/Common/Model.hs
index 80c344b..20e86c1 100644
--- a/common/src/Common/Model.hs
+++ b/common/src/Common/Model.hs
@@ -1,18 +1,18 @@
 module Common.Model (module X) where
 
-import Common.Model.Category as X
-import Common.Model.CreateCategory as X
-import Common.Model.CreateIncome as X
-import Common.Model.CreatePayment as X
-import Common.Model.Currency as X
-import Common.Model.EditCategory as X
-import Common.Model.EditIncome as X
-import Common.Model.EditPayment as X
-import Common.Model.Frequency as X
-import Common.Model.Income as X
-import Common.Model.Init as X
-import Common.Model.InitResult as X
-import Common.Model.Payment as X
-import Common.Model.PaymentCategory as X
-import Common.Model.SignIn as X
-import Common.Model.User as X
+import           Common.Model.Category        as X
+import           Common.Model.CreateCategory  as X
+import           Common.Model.CreateIncome    as X
+import           Common.Model.CreatePayment   as X
+import           Common.Model.Currency        as X
+import           Common.Model.EditCategory    as X
+import           Common.Model.EditIncome      as X
+import           Common.Model.EditPayment     as X
+import           Common.Model.Frequency       as X
+import           Common.Model.Income          as X
+import           Common.Model.Init            as X
+import           Common.Model.InitResult      as X
+import           Common.Model.Payment         as X
+import           Common.Model.PaymentCategory as X
+import           Common.Model.SignIn          as X
+import           Common.Model.User            as X
diff --git a/common/src/Common/Model/Category.hs b/common/src/Common/Model/Category.hs
index 53a6bdb..bbd3c33 100644
--- a/common/src/Common/Model/Category.hs
+++ b/common/src/Common/Model/Category.hs
@@ -5,20 +5,20 @@ module Common.Model.Category
   , Category(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import Data.Int (Int64)
-import Data.Text (Text)
-import Data.Time (UTCTime)
-import GHC.Generics (Generic)
+import           Data.Aeson   (FromJSON, ToJSON)
+import           Data.Int     (Int64)
+import           Data.Text    (Text)
+import           Data.Time    (UTCTime)
+import           GHC.Generics (Generic)
 
 type CategoryId = Int64
 
 data Category = Category
-  { _category_id :: CategoryId
-  , _category_name :: Text
-  , _category_color :: Text
+  { _category_id        :: CategoryId
+  , _category_name      :: Text
+  , _category_color     :: Text
   , _category_createdAt :: UTCTime
-  , _category_editedAt :: Maybe UTCTime
+  , _category_editedAt  :: Maybe UTCTime
   , _category_deletedAt :: Maybe UTCTime
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/CreateCategory.hs b/common/src/Common/Model/CreateCategory.hs
index bfe24c5..11d84e9 100644
--- a/common/src/Common/Model/CreateCategory.hs
+++ b/common/src/Common/Model/CreateCategory.hs
@@ -4,12 +4,12 @@ module Common.Model.CreateCategory
   ( CreateCategory(..)
   ) where
 
-import Data.Aeson (FromJSON)
-import Data.Text (Text)
-import GHC.Generics (Generic)
+import           Data.Aeson   (FromJSON)
+import           Data.Text    (Text)
+import           GHC.Generics (Generic)
 
 data CreateCategory = CreateCategory
-  { _createCategory_name :: Text
+  { _createCategory_name  :: Text
   , _createCategory_color :: Text
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/CreateIncome.hs b/common/src/Common/Model/CreateIncome.hs
index 4ee3a50..583ebbb 100644
--- a/common/src/Common/Model/CreateIncome.hs
+++ b/common/src/Common/Model/CreateIncome.hs
@@ -4,12 +4,12 @@ module Common.Model.CreateIncome
   ( CreateIncome(..)
   ) where
 
-import Data.Aeson (FromJSON)
-import Data.Time.Calendar (Day)
-import GHC.Generics (Generic)
+import           Data.Aeson         (FromJSON)
+import           Data.Time.Calendar (Day)
+import           GHC.Generics       (Generic)
 
 data CreateIncome = CreateIncome
-  { _createIncome_date :: Day
+  { _createIncome_date   :: Day
   , _createIncome_amount :: Int
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/CreatePayment.hs b/common/src/Common/Model/CreatePayment.hs
index b5b6256..7a283e5 100644
--- a/common/src/Common/Model/CreatePayment.hs
+++ b/common/src/Common/Model/CreatePayment.hs
@@ -4,19 +4,19 @@ module Common.Model.CreatePayment
   ( CreatePayment(..)
   ) where
 
-import Data.Aeson (FromJSON)
-import Data.Text (Text)
-import Data.Time.Calendar (Day)
-import GHC.Generics (Generic)
+import           Data.Aeson             (FromJSON)
+import           Data.Text              (Text)
+import           Data.Time.Calendar     (Day)
+import           GHC.Generics           (Generic)
 
-import Common.Model.Category (CategoryId)
-import Common.Model.Frequency (Frequency)
+import           Common.Model.Category  (CategoryId)
+import           Common.Model.Frequency (Frequency)
 
 data CreatePayment = CreatePayment
-  { _createPayment_name :: Text
-  , _createPayment_cost :: Int
-  , _createPayment_date :: Day
-  , _createPayment_category :: CategoryId
+  { _createPayment_name      :: Text
+  , _createPayment_cost      :: Int
+  , _createPayment_date      :: Day
+  , _createPayment_category  :: CategoryId
   , _createPayment_frequency :: Frequency
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/Currency.hs b/common/src/Common/Model/Currency.hs
index 7c12545..6d74ea7 100644
--- a/common/src/Common/Model/Currency.hs
+++ b/common/src/Common/Model/Currency.hs
@@ -4,9 +4,9 @@ module Common.Model.Currency
   ( Currency(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import Data.Text (Text)
-import GHC.Generics (Generic)
+import           Data.Aeson   (FromJSON, ToJSON)
+import           Data.Text    (Text)
+import           GHC.Generics (Generic)
 
 newtype Currency = Currency Text deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/EditCategory.hs b/common/src/Common/Model/EditCategory.hs
index 2a3a697..5b08b86 100644
--- a/common/src/Common/Model/EditCategory.hs
+++ b/common/src/Common/Model/EditCategory.hs
@@ -4,15 +4,15 @@ module Common.Model.EditCategory
   ( EditCategory(..)
   ) where
 
-import Data.Aeson (FromJSON)
-import Data.Text (Text)
-import GHC.Generics (Generic)
+import           Data.Aeson            (FromJSON)
+import           Data.Text             (Text)
+import           GHC.Generics          (Generic)
 
-import Common.Model.Category (CategoryId)
+import           Common.Model.Category (CategoryId)
 
 data EditCategory = EditCategory
-  { _editCategory_id :: CategoryId
-  , _editCategory_name :: Text
+  { _editCategory_id    :: CategoryId
+  , _editCategory_name  :: Text
   , _editCategory_color :: Text
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/EditIncome.hs b/common/src/Common/Model/EditIncome.hs
index a55c39e..867b406 100644
--- a/common/src/Common/Model/EditIncome.hs
+++ b/common/src/Common/Model/EditIncome.hs
@@ -4,15 +4,15 @@ module Common.Model.EditIncome
   ( EditIncome(..)
   ) where
 
-import Data.Aeson (FromJSON)
-import Data.Time.Calendar (Day)
-import GHC.Generics (Generic)
+import           Data.Aeson          (FromJSON)
+import           Data.Time.Calendar  (Day)
+import           GHC.Generics        (Generic)
 
-import Common.Model.Income (IncomeId)
+import           Common.Model.Income (IncomeId)
 
 data EditIncome = EditIncome
-  { _editIncome_id :: IncomeId
-  , _editIncome_date :: Day
+  { _editIncome_id     :: IncomeId
+  , _editIncome_date   :: Day
   , _editIncome_amount :: Int
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/EditPayment.hs b/common/src/Common/Model/EditPayment.hs
index 172c0c1..32228f0 100644
--- a/common/src/Common/Model/EditPayment.hs
+++ b/common/src/Common/Model/EditPayment.hs
@@ -4,21 +4,21 @@ module Common.Model.EditPayment
   ( EditPayment(..)
   ) where
 
-import Data.Aeson (FromJSON)
-import Data.Text (Text)
-import Data.Time.Calendar (Day)
-import GHC.Generics (Generic)
+import           Data.Aeson             (FromJSON)
+import           Data.Text              (Text)
+import           Data.Time.Calendar     (Day)
+import           GHC.Generics           (Generic)
 
-import Common.Model.Category (CategoryId)
-import Common.Model.Frequency (Frequency)
-import Common.Model.Payment (PaymentId)
+import           Common.Model.Category  (CategoryId)
+import           Common.Model.Frequency (Frequency)
+import           Common.Model.Payment   (PaymentId)
 
 data EditPayment = EditPayment
-  { _editPayment_id :: PaymentId
-  , _editPayment_name :: Text
-  , _editPayment_cost :: Int
-  , _editPayment_date :: Day
-  , _editPayment_category :: CategoryId
+  { _editPayment_id        :: PaymentId
+  , _editPayment_name      :: Text
+  , _editPayment_cost      :: Int
+  , _editPayment_date      :: Day
+  , _editPayment_category  :: CategoryId
   , _editPayment_frequency :: Frequency
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/Frequency.hs b/common/src/Common/Model/Frequency.hs
index 7c46605..085163d 100644
--- a/common/src/Common/Model/Frequency.hs
+++ b/common/src/Common/Model/Frequency.hs
@@ -4,8 +4,8 @@ module Common.Model.Frequency
   ( Frequency(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import GHC.Generics (Generic)
+import           Data.Aeson   (FromJSON, ToJSON)
+import           GHC.Generics (Generic)
 
 data Frequency =
   Punctual
diff --git a/common/src/Common/Model/Income.hs b/common/src/Common/Model/Income.hs
index 280812f..10b4cf2 100644
--- a/common/src/Common/Model/Income.hs
+++ b/common/src/Common/Model/Income.hs
@@ -5,23 +5,23 @@ module Common.Model.Income
   , Income(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import Data.Int (Int64)
-import Data.Time (UTCTime)
-import Data.Time.Calendar (Day)
-import GHC.Generics (Generic)
+import           Data.Aeson         (FromJSON, ToJSON)
+import           Data.Int           (Int64)
+import           Data.Time          (UTCTime)
+import           Data.Time.Calendar (Day)
+import           GHC.Generics       (Generic)
 
-import Common.Model.User (UserId)
+import           Common.Model.User  (UserId)
 
 type IncomeId = Int64
 
 data Income = Income
-  { _income_id :: IncomeId
-  , _income_userId :: UserId
-  , _income_date :: Day
-  , _income_amount :: Int
+  { _income_id        :: IncomeId
+  , _income_userId    :: UserId
+  , _income_date      :: Day
+  , _income_amount    :: Int
   , _income_createdAt :: UTCTime
-  , _income_editedAt :: Maybe UTCTime
+  , _income_editedAt  :: Maybe UTCTime
   , _income_deletedAt :: Maybe UTCTime
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/Init.hs b/common/src/Common/Model/Init.hs
index 68fcfb8..ae23bb5 100644
--- a/common/src/Common/Model/Init.hs
+++ b/common/src/Common/Model/Init.hs
@@ -4,24 +4,24 @@ module Common.Model.Init
   ( Init(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import GHC.Generics (Generic)
+import           Data.Aeson                   (FromJSON, ToJSON)
+import           GHC.Generics                 (Generic)
 
-import Common.Model.Category (Category)
-import Common.Model.Currency (Currency)
-import Common.Model.Income (Income)
-import Common.Model.Payment (Payment)
-import Common.Model.PaymentCategory (PaymentCategory)
-import Common.Model.User (UserId, User)
+import           Common.Model.Category        (Category)
+import           Common.Model.Currency        (Currency)
+import           Common.Model.Income          (Income)
+import           Common.Model.Payment         (Payment)
+import           Common.Model.PaymentCategory (PaymentCategory)
+import           Common.Model.User            (User, UserId)
 
 data Init = Init
-  { _init_users :: [User]
-  , _init_currentUser :: UserId
-  , _init_payments :: [Payment]
-  , _init_incomes :: [Income]
-  , _init_categories :: [Category]
+  { _init_users             :: [User]
+  , _init_currentUser       :: UserId
+  , _init_payments          :: [Payment]
+  , _init_incomes           :: [Income]
+  , _init_categories        :: [Category]
   , _init_paymentCategories :: [PaymentCategory]
-  , _init_currency :: Currency
+  , _init_currency          :: Currency
   } deriving (Show, Generic)
 
 instance FromJSON Init
diff --git a/common/src/Common/Model/InitResult.hs b/common/src/Common/Model/InitResult.hs
index 43c16f9..12be65a 100644
--- a/common/src/Common/Model/InitResult.hs
+++ b/common/src/Common/Model/InitResult.hs
@@ -4,11 +4,11 @@ module Common.Model.InitResult
   ( InitResult(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import Data.Text (Text)
-import GHC.Generics (Generic)
+import           Data.Aeson        (FromJSON, ToJSON)
+import           Data.Text         (Text)
+import           GHC.Generics      (Generic)
 
-import Common.Model.Init (Init)
+import           Common.Model.Init (Init)
 
 data InitResult =
   InitSuccess Init
diff --git a/common/src/Common/Model/Payment.hs b/common/src/Common/Model/Payment.hs
index 804b501..4741058 100644
--- a/common/src/Common/Model/Payment.hs
+++ b/common/src/Common/Model/Payment.hs
@@ -5,27 +5,27 @@ module Common.Model.Payment
   , Payment(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import Data.Int (Int64)
-import Data.Text (Text)
-import Data.Time (UTCTime)
-import Data.Time.Calendar (Day)
-import GHC.Generics (Generic)
+import           Data.Aeson             (FromJSON, ToJSON)
+import           Data.Int               (Int64)
+import           Data.Text              (Text)
+import           Data.Time              (UTCTime)
+import           Data.Time.Calendar     (Day)
+import           GHC.Generics           (Generic)
 
-import Common.Model.Frequency
-import Common.Model.User (UserId)
+import           Common.Model.Frequency
+import           Common.Model.User      (UserId)
 
 type PaymentId = Int64
 
 data Payment = Payment
-  { _payment_id :: PaymentId
-  , _payment_user :: UserId
-  , _payment_name :: Text
-  , _payment_cost :: Int
-  , _payment_date :: Day
+  { _payment_id        :: PaymentId
+  , _payment_user      :: UserId
+  , _payment_name      :: Text
+  , _payment_cost      :: Int
+  , _payment_date      :: Day
   , _payment_frequency :: Frequency
   , _payment_createdAt :: UTCTime
-  , _payment_editedAt :: Maybe UTCTime
+  , _payment_editedAt  :: Maybe UTCTime
   , _payment_deletedAt :: Maybe UTCTime
   } deriving (Show, Generic)
 
diff --git a/common/src/Common/Model/PaymentCategory.hs b/common/src/Common/Model/PaymentCategory.hs
index a0e94f9..24cf9e1 100644
--- a/common/src/Common/Model/PaymentCategory.hs
+++ b/common/src/Common/Model/PaymentCategory.hs
@@ -5,22 +5,22 @@ module Common.Model.PaymentCategory
   , PaymentCategory(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import Data.Int (Int64)
-import Data.Text (Text)
-import Data.Time (UTCTime)
-import GHC.Generics (Generic)
+import           Data.Aeson            (FromJSON, ToJSON)
+import           Data.Int              (Int64)
+import           Data.Text             (Text)
+import           Data.Time             (UTCTime)
+import           GHC.Generics          (Generic)
 
-import Common.Model.Category (CategoryId)
+import           Common.Model.Category (CategoryId)
 
 type PaymentCategoryId = Int64
 
 data PaymentCategory = PaymentCategory
-  { _paymentCategory_id :: PaymentCategoryId
-  , _paymentCategory_name :: Text
-  , _paymentCategory_category :: CategoryId
+  { _paymentCategory_id        :: PaymentCategoryId
+  , _paymentCategory_name      :: Text
+  , _paymentCategory_category  :: CategoryId
   , _paymentCategory_createdAt :: UTCTime
-  , _paymentCategory_editedAt :: Maybe UTCTime
+  , _paymentCategory_editedAt  :: Maybe UTCTime
   } deriving (Show, Generic)
 
 instance FromJSON PaymentCategory
diff --git a/common/src/Common/Model/SignIn.hs b/common/src/Common/Model/SignIn.hs
index f4da97f..baccd88 100644
--- a/common/src/Common/Model/SignIn.hs
+++ b/common/src/Common/Model/SignIn.hs
@@ -4,9 +4,9 @@ module Common.Model.SignIn
   ( SignIn(..)
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import Data.Text (Text)
-import GHC.Generics (Generic)
+import           Data.Aeson   (FromJSON, ToJSON)
+import           Data.Text    (Text)
+import           GHC.Generics (Generic)
 
 data SignIn = SignIn
   { _signIn_email :: Text
diff --git a/common/src/Common/Model/User.hs b/common/src/Common/Model/User.hs
index 694c70e..e491c31 100644
--- a/common/src/Common/Model/User.hs
+++ b/common/src/Common/Model/User.hs
@@ -6,20 +6,20 @@ module Common.Model.User
   , findUser
   ) where
 
-import Data.Aeson (FromJSON, ToJSON)
-import qualified Data.List as L
-import Data.Int (Int64)
-import Data.Text (Text)
-import Data.Time (UTCTime)
-import GHC.Generics (Generic)
+import           Data.Aeson   (FromJSON, ToJSON)
+import           Data.Int     (Int64)
+import qualified Data.List    as L
+import           Data.Text    (Text)
+import           Data.Time    (UTCTime)
+import           GHC.Generics (Generic)
 
 type UserId = Int64
 
 data User = User
-  { _user_id :: UserId
+  { _user_id       :: UserId
   , _user_creation :: UTCTime
-  , _user_email :: Text
-  , _user_name :: Text
+  , _user_email    :: Text
+  , _user_name     :: Text
   } deriving (Show, Generic)
 
 instance FromJSON User
diff --git a/common/src/Common/Util/Text.hs b/common/src/Common/Util/Text.hs
index 4af7a4c..7e5c8c2 100644
--- a/common/src/Common/Util/Text.hs
+++ b/common/src/Common/Util/Text.hs
@@ -2,7 +2,7 @@ module Common.Util.Text
   ( unaccent
   ) where
 
-import Data.Text (Text)
+import           Data.Text (Text)
 import qualified Data.Text as T
 
 unaccent :: Text -> Text
@@ -38,4 +38,4 @@ unaccentChar c = case c of
   'ý' -> 'y'
   'ÿ' -> 'y'
   'ž' -> 'z'
-  _ -> c
+  _   -> c
diff --git a/common/src/Common/View/Format.hs b/common/src/Common/View/Format.hs
index 7165965..783ad67 100644
--- a/common/src/Common/View/Format.hs
+++ b/common/src/Common/View/Format.hs
@@ -7,15 +7,15 @@ module Common.View.Format
   , number
   ) where
 
-import Data.Text (Text)
-import qualified Data.Text as T
-import Data.List (intersperse)
-import Data.Maybe (fromMaybe)
-import Data.Time.Calendar (Day, toGregorian)
+import           Data.List          (intersperse)
+import           Data.Maybe         (fromMaybe)
+import           Data.Text          (Text)
+import qualified Data.Text          as T
+import           Data.Time.Calendar (Day, toGregorian)
 
-import qualified Common.Message as Message
+import qualified Common.Message     as Message
 import qualified Common.Message.Key as Key
-import Common.Model (Currency(..))
+import           Common.Model       (Currency (..))
 
 shortDay :: Day -> Text
 shortDay date =
@@ -45,7 +45,7 @@ longDay date =
         monthToKey 10 = Just Key.Month_October
         monthToKey 11 = Just Key.Month_November
         monthToKey 12 = Just Key.Month_December
-        monthToKey _ = Nothing
+        monthToKey _  = Nothing
 
 price :: Currency -> Int -> Text
 price (Currency currency) amount = T.concat [ number amount, " ", currency ]