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