aboutsummaryrefslogtreecommitdiff
path: root/servant/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'servant/src/Main.hs')
-rw-r--r--servant/src/Main.hs6
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
11import Thermoprint 13import Thermoprint
12import Thermoprint.Api 14import Thermoprint.Api
@@ -44,6 +46,10 @@ import Data.Int (Int64)
44 46
45import Prelude hiding (print) 47import Prelude hiding (print)
46 48
49type PrintOut = Block String
50
51derivePersistFieldJSON "PrintOut"
52
47share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase| 53share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
48Draft 54Draft
49 title String 55 title String