From 44fed137c50043f87e97996aa32f3353f9a2eeb0 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 23 Jan 2016 12:46:20 +0000 Subject: Removed persistent instances & dep from spec --- spec/src/Thermoprint/Printout.hs | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'spec/src') 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 -- cgit v1.2.3