1 files changed, 8 insertions, 3 deletions

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