Removed persistent instances & dep from spec

1 files changed, 0 insertions, 13 deletions

diff --git a/spec/src/Thermoprint/Printout.hs b/spec/src/Thermoprint/Printout.hs
index aae71aa..2be0a83 100644
--- a/spec/src/Thermoprint/Printout.hs
+++ b/spec/src/Thermoprint/Printout.hs
@@ -33,9 +33,6 @@ import Data.Aeson.Types (typeMismatch)
 
 import Data.Proxy (Proxy(..))
 
-import Database.Persist.Class (PersistField(..))
-import Database.Persist.Sql (PersistFieldSql(..))
-
 import Test.QuickCheck.Arbitrary (Arbitrary(..), CoArbitrary, genericShrink)
 import Test.QuickCheck.Modifiers (NonNegative(..))
 import Test.QuickCheck.Gen (oneof, scale)
@@ -58,9 +55,6 @@ import Data.Function (on)
 
 import Data.Foldable (toList, fold)
 
-import Data.Bifunctor
-import Control.Monad ((<=<))
-
 import Data.Encoding (encodeLazyByteStringExplicit, decodeLazyByteString)
 import Data.Encoding.UTF8
 import qualified Data.ByteString.Base64.Lazy as Base64 (encode, decode)
@@ -71,13 +65,6 @@ import Prelude hiding (fold)
 -- | A 'Printout' is a sequence of visually seperated 'Paragraph's
 type Printout = Seq Paragraph
 
-instance PersistField Printout where
-  toPersistValue   = toPersistValue . LBS.toStrict . JSON.encode
-  fromPersistValue = first T.pack . JSON.eitherDecodeStrict' <=< fromPersistValue
-
-instance PersistFieldSql Printout where
-  sqlType _ = sqlType (Proxy :: Proxy Strict.ByteString)
-
 -- | A 'Paragraph' is a non-seperated sequence of 'Chunk's
 type Paragraph = Seq Chunk