cleanup of persistent-instances

1 files changed, 1 insertions, 21 deletions

diff --git a/server/src/Thermoprint/Server/Database/Instances.hs b/server/src/Thermoprint/Server/Database/Instances.hs
index f5c22fd..e54f90e 100644
--- a/server/src/Thermoprint/Server/Database/Instances.hs
+++ b/server/src/Thermoprint/Server/Database/Instances.hs
@@ -6,28 +6,8 @@ module Thermoprint.Server.Database.Instances where
 
 import Thermoprint.API (Printout, JobStatus, PrintingError)
 
-import Database.Persist (PersistField(..))
-import Database.Persist.Sql (PersistFieldSql(..))
 import Database.Persist.TH
 
-import Control.Monad ((<=<))
-import Data.Bifunctor
-
-import qualified Data.Aeson as JSON (encode, eitherDecodeStrict')
-
-import Data.ByteString (ByteString)
-import qualified Data.ByteString.Lazy as LBS (toStrict)
-import qualified Data.Text as T (pack)
-
-import Data.Proxy
-
--- | Instead of deriving an instance using 'derivePersistField', which would use 'show' and 'read', we write our own by hand in order to use json
-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 ByteString)
-
+derivePersistFieldJSON "Printout"
 derivePersistField "PrintingError"
 derivePersistField "JobStatus"