From b24a594ebc4d1f98cb93d7f6b706f91c92a011dc Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 22 Oct 2015 21:14:44 +0200
Subject: Revert "Merged PrintOut into Main.hs"

This reverts commit 9ca0799435aca9f4380ca7e80358dc77236d1b24.
---
 servant/src/Main.hs     |  6 ------
 servant/src/PrintOut.hs | 14 ++++++++++++++
 2 files changed, 14 insertions(+), 6 deletions(-)
 create mode 100644 servant/src/PrintOut.hs

(limited to 'servant/src')

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 @@
 {-# LANGUAGE QuasiQuotes                #-}
 {-# LANGUAGE TemplateHaskell            #-}
 {-# LANGUAGE TypeFamilies               #-}
-{-# LANGUAGE FlexibleInstances          #-}
-{-# LANGUAGE TypeSynonymInstances       #-}
 
 import Thermoprint
 import Thermoprint.Api
@@ -45,10 +43,6 @@ import Data.Int (Int64)
 
 import Prelude hiding (print)
 
-type PrintOut = Block String
-
-derivePersistFieldJSON "PrintOut"
-
 share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
 Draft
   title String
diff --git a/servant/src/PrintOut.hs b/servant/src/PrintOut.hs
new file mode 100644
index 0000000..5f95a22
--- /dev/null
+++ b/servant/src/PrintOut.hs
@@ -0,0 +1,14 @@
+{-# LANGUAGE TemplateHaskell      #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+{-# LANGUAGE FlexibleInstances    #-}
+module PrintOut
+       ( PrintOut
+       ) where
+
+import Thermoprint
+import Thermoprint.Api
+import Database.Persist.TH
+
+type PrintOut = Block String
+
+derivePersistFieldJSON "PrintOut"
-- 
cgit v1.2.3