From c3a6d0657eb2987aa13b53419269274d848d9e0c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 24 Jan 2016 16:10:48 +0000 Subject: Working printer config & debug printer --- server/src/Thermoprint/Server/Database.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'server/src/Thermoprint/Server/Database.hs') diff --git a/server/src/Thermoprint/Server/Database.hs b/server/src/Thermoprint/Server/Database.hs index 29732e1..1e01680 100644 --- a/server/src/Thermoprint/Server/Database.hs +++ b/server/src/Thermoprint/Server/Database.hs @@ -9,16 +9,18 @@ module Thermoprint.Server.Database ( Job(..), JobId , Draft(..), DraftId + , Key(..) , migrateAll + , castId' ) where import Control.DeepSeq -import Thermoprint.API (Printout, DraftTitle, JobStatus) +import Thermoprint.API (Printout, DraftTitle, JobStatus, castId) import Database.Persist.TH -import Database.Persist.Sql (unSqlBackendKey) -import Database.Persist.Class (Key) +import Database.Persist.Sql (unSqlBackendKey, SqlBackend) +import Database.Persist.Class (Key, BackendKey) import Thermoprint.Server.Database.Instances @@ -32,3 +34,6 @@ Draft instance NFData (Key Job) where rnf = rnf . unSqlBackendKey . unJobKey + +castId' :: Enum b => BackendKey SqlBackend -> b +castId' = castId . unSqlBackendKey -- cgit v1.2.3