aboutsummaryrefslogtreecommitdiff
path: root/common
diff options
context:
space:
mode:
Diffstat (limited to 'common')
-rw-r--r--common/Setup.hs2
-rw-r--r--common/common.cabal86
-rw-r--r--common/src/Common/Message.hs6
-rw-r--r--common/src/Common/Message/Key.hs2
-rw-r--r--common/src/Common/Message/Translation.hs16
-rw-r--r--common/src/Common/Model.hs32
-rw-r--r--common/src/Common/Model/Category.hs18
-rw-r--r--common/src/Common/Model/CreateCategory.hs8
-rw-r--r--common/src/Common/Model/CreateIncome.hs8
-rw-r--r--common/src/Common/Model/CreatePayment.hs20
-rw-r--r--common/src/Common/Model/Currency.hs6
-rw-r--r--common/src/Common/Model/EditCategory.hs12
-rw-r--r--common/src/Common/Model/EditIncome.hs12
-rw-r--r--common/src/Common/Model/EditPayment.hs24
-rw-r--r--common/src/Common/Model/Frequency.hs4
-rw-r--r--common/src/Common/Model/Income.hs22
-rw-r--r--common/src/Common/Model/Init.hs28
-rw-r--r--common/src/Common/Model/InitResult.hs8
-rw-r--r--common/src/Common/Model/Payment.hs28
-rw-r--r--common/src/Common/Model/PaymentCategory.hs20
-rw-r--r--common/src/Common/Model/SignIn.hs6
-rw-r--r--common/src/Common/Model/User.hs18
-rw-r--r--common/src/Common/Util/Text.hs4
-rw-r--r--common/src/Common/View/Format.hs16
24 files changed, 206 insertions, 200 deletions
diff --git a/common/Setup.hs b/common/Setup.hs
index 9a994af..4467109 100644
--- a/common/Setup.hs
+++ b/common/Setup.hs
@@ -1,2 +1,2 @@
-import Distribution.Simple
+import Distribution.Simple
main = defaultMain
diff --git a/common/common.cabal b/common/common.cabal
index 8b60743..c3073d9 100644
--- a/common/common.cabal
+++ b/common/common.cabal
@@ -1,41 +1,47 @@
-name: common
-version: 0.0.1
-license: GPL-3
-license-file: LICENSE
-author: Joris Guyonvarch
-maintainer: joris@guyonvarch.me
-category: Web
-build-type: Simple
-cabal-version: >=1.10
+Name: common
+Version: 0.0.1
+License: GPL-3
+License-file: LICENSE
+Author: Joris Guyonvarch
+Maintainer: joris@guyonvarch.me
+Category: Web
+Build-type: Simple
+Cabal-version: >=1.10
-library
- ghc-options: -Wall -Werror
- build-depends: aeson
- , base >=4.9 && <4.11
- , text
- , time
- hs-source-dirs: src
- default-language: Haskell2010
- exposed-modules: Common.Message
- , Common.Message.Key
- , Common.Model
- , Common.Util.Text
- , Common.View.Format
- other-modules: Common.Message.Lang
- , Common.Message.Translation
- , Common.Model.PaymentCategory
- , Common.Model.CreateCategory
- , Common.Model.CreatePayment
- , Common.Model.CreateIncome
- , Common.Model.EditCategory
- , Common.Model.EditPayment
- , Common.Model.InitResult
- , Common.Model.EditIncome
- , Common.Model.Frequency
- , Common.Model.Currency
- , Common.Model.Category
- , Common.Model.Payment
- , Common.Model.Income
- , Common.Model.SignIn
- , Common.Model.Init
- , Common.Model.User
+Library
+ Ghc-options: -Wall -Werror
+ Hs-source-dirs: src
+ Default-language: Haskell2010
+
+ Build-depends:
+ aeson
+ , base >=4.9 && <4.11
+ , text
+ , time
+
+ Exposed-modules:
+ Common.Message
+ Common.Message.Key
+ Common.Model
+ Common.Util.Text
+ Common.View.Format
+
+ other-modules:
+ Common.Message.Lang
+ Common.Message.Translation
+ Common.Model.PaymentCategory
+ Common.Model.CreateCategory
+ Common.Model.CreatePayment
+ Common.Model.CreateIncome
+ Common.Model.EditCategory
+ Common.Model.EditPayment
+ Common.Model.InitResult
+ Common.Model.EditIncome
+ Common.Model.Frequency
+ Common.Model.Currency
+ Common.Model.Category
+ Common.Model.Payment
+ Common.Model.Income
+ Common.Model.SignIn
+ Common.Model.Init
+ Common.Model.User
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 ]