blob: 04d6fead634858a225eb689517486aa39d7a923b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE QuasiQuotes, TypeFamilies, GeneralizedNewtypeDeriving, TemplateHaskell,
OverloadedStrings, GADTs, FlexibleContexts #-}
module Footype where
import Database.Persist hiding (Key)
import Database.Persist.TH
import Database.Persist.Sqlite hiding (Key)
import Control.Monad.IO.Class (liftIO)
import Control.Monad
import Data.Time.Clock
import Types.Key
import Types.UUID
import Types.MetaData
-- has to be in a separate file from foo.hs for silly reasons
derivePersistField "Key"
derivePersistField "UUID"
derivePersistField "MetaField"
|