Merged PrintOut into Main.hs

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 @@
 {-# LANGUAGE QuasiQuotes                #-}
 {-# LANGUAGE TemplateHaskell            #-}
 {-# LANGUAGE TypeFamilies               #-}
+{-# LANGUAGE FlexibleInstances          #-}
+{-# LANGUAGE TypeSynonymInstances       #-}
 
 import Thermoprint
 import Thermoprint.Api
@@ -44,6 +46,10 @@ import Data.Int (Int64)
 
 import Prelude hiding (print)
 
+type PrintOut = Block String
+
+derivePersistFieldJSON "PrintOut"
+
 share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
 Draft
   title String