From 08a6ee538ced1afb059491c7fd25f233999f5ca4 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 23 Jan 2016 11:09:04 +0000
Subject: Split out database defs & minor cleanup
---
server/src/Thermoprint/Server/Database.hs | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
create mode 100644 server/src/Thermoprint/Server/Database.hs
(limited to 'server/src/Thermoprint/Server')
diff --git a/server/src/Thermoprint/Server/Database.hs b/server/src/Thermoprint/Server/Database.hs
new file mode 100644
index 0000000..61179e6
--- /dev/null
+++ b/server/src/Thermoprint/Server/Database.hs
@@ -0,0 +1,24 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE ExistentialQuantification #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+
+module Thermoprint.Server.Database
+ ( Job(..), JobId
+ , Draft(..), DraftId
+ , migrateAll
+ ) where
+
+import Thermoprint.API (Printout, DraftTitle)
+
+import Database.Persist.TH
+
+share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
+Job
+ content Printout
+Draft
+ title DraftTitle Maybe
+ content Printout
+|]
--
cgit v1.2.3