diff options
Diffstat (limited to 'servant/src/Main.hs')
| -rw-r--r-- | servant/src/Main.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/servant/src/Main.hs b/servant/src/Main.hs index 7def207..e93972f 100644 --- a/servant/src/Main.hs +++ b/servant/src/Main.hs | |||
| @@ -7,6 +7,8 @@ | |||
| 7 | {-# LANGUAGE QuasiQuotes #-} | 7 | {-# LANGUAGE QuasiQuotes #-} |
| 8 | {-# LANGUAGE TemplateHaskell #-} | 8 | {-# LANGUAGE TemplateHaskell #-} |
| 9 | {-# LANGUAGE TypeFamilies #-} | 9 | {-# LANGUAGE TypeFamilies #-} |
| 10 | {-# LANGUAGE FlexibleInstances #-} | ||
| 11 | {-# LANGUAGE TypeSynonymInstances #-} | ||
| 10 | 12 | ||
| 11 | import Thermoprint | 13 | import Thermoprint |
| 12 | import Thermoprint.Api | 14 | import Thermoprint.Api |
| @@ -44,6 +46,10 @@ import Data.Int (Int64) | |||
| 44 | 46 | ||
| 45 | import Prelude hiding (print) | 47 | import Prelude hiding (print) |
| 46 | 48 | ||
| 49 | type PrintOut = Block String | ||
| 50 | |||
| 51 | derivePersistFieldJSON "PrintOut" | ||
| 52 | |||
| 47 | share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase| | 53 | share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase| |
| 48 | Draft | 54 | Draft |
| 49 | title String | 55 | title String |
