-
Notifications
You must be signed in to change notification settings - Fork 0
/
Model.hs
26 lines (22 loc) · 933 Bytes
/
Model.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
{-# Language OverloadedStrings #-}
{-# Language ViewPatterns #-}
module Model where
import Prelude
import Yesod
import Data.Text (Text)
import qualified Data.Text as T
import Database.Persist.Quasi
import Database.Persist.Store (PersistValue(..), SqlType(..))
data Unit = Imperial | Metric deriving Show
instance PersistField Unit where
toPersistValue = PersistText . T.pack . show
fromPersistValue (PersistText (T.stripPrefix "Imperial" -> Just _)) = Right Imperial
fromPersistValue (PersistText (T.stripPrefix "Metric" -> Just _)) = Right Metric
fromPersistValue _ = Left "Is not a unit"
sqlType _ = SqlString
-- You can define all of your database entities in the entities file.
-- You can find more information on persistent and how to declare entities
-- at:
-- http://www.yesodweb.com/book/persistent/
share [mkPersist sqlSettings, mkMigrate "migrateAll"]
$(persistFileWith lowerCaseSettings "config/models")