aboutsummaryrefslogtreecommitdiff
path: root/spec/src/Thermoprint
diff options
context:
space:
mode:
Diffstat (limited to 'spec/src/Thermoprint')
-rw-r--r--spec/src/Thermoprint/Printout.hs13
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)
33 33
34import Data.Proxy (Proxy(..)) 34import Data.Proxy (Proxy(..))
35 35
36import Database.Persist.Class (PersistField(..))
37import Database.Persist.Sql (PersistFieldSql(..))
38
39import Test.QuickCheck.Arbitrary (Arbitrary(..), CoArbitrary, genericShrink) 36import Test.QuickCheck.Arbitrary (Arbitrary(..), CoArbitrary, genericShrink)
40import Test.QuickCheck.Modifiers (NonNegative(..)) 37import Test.QuickCheck.Modifiers (NonNegative(..))
41import Test.QuickCheck.Gen (oneof, scale) 38import Test.QuickCheck.Gen (oneof, scale)
@@ -58,9 +55,6 @@ import Data.Function (on)
58 55
59import Data.Foldable (toList, fold) 56import Data.Foldable (toList, fold)
60 57
61import Data.Bifunctor
62import Control.Monad ((<=<))
63
64import Data.Encoding (encodeLazyByteStringExplicit, decodeLazyByteString) 58import Data.Encoding (encodeLazyByteStringExplicit, decodeLazyByteString)
65import Data.Encoding.UTF8 59import Data.Encoding.UTF8
66import qualified Data.ByteString.Base64.Lazy as Base64 (encode, decode) 60import qualified Data.ByteString.Base64.Lazy as Base64 (encode, decode)
@@ -71,13 +65,6 @@ import Prelude hiding (fold)
71-- | A 'Printout' is a sequence of visually seperated 'Paragraph's 65-- | A 'Printout' is a sequence of visually seperated 'Paragraph's
72type Printout = Seq Paragraph 66type Printout = Seq Paragraph
73 67
74instance PersistField Printout where
75 toPersistValue = toPersistValue . LBS.toStrict . JSON.encode
76 fromPersistValue = first T.pack . JSON.eitherDecodeStrict' <=< fromPersistValue
77
78instance PersistFieldSql Printout where
79 sqlType _ = sqlType (Proxy :: Proxy Strict.ByteString)
80
81-- | A 'Paragraph' is a non-seperated sequence of 'Chunk's 68-- | A 'Paragraph' is a non-seperated sequence of 'Chunk's
82type Paragraph = Seq Chunk 69type Paragraph = Seq Chunk
83 70