Add starter Models

danpalmer · Jun 11, 2016 · d4b15434e245e23cb4be97bcfa2db1a96e281548 · d4b1543
1 parent 941b4d2
commit d4b15434e245e23cb4be97bcfa2db1a96e281548
Unified Split

Showing with 18 additions and 0 deletions.

+18 −0 src/Models.hs
diff --git a/src/Models.hs b/src/Models.hs
@@ -0,0 +1,18 @@
+{-# LANGUAGE EmptyDataDecls             #-}
+{-# LANGUAGE GADTs                      #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE MultiParamTypeClasses      #-}
+{-# LANGUAGE QuasiQuotes                #-}
+{-# LANGUAGE TemplateHaskell            #-}
+{-# LANGUAGE TypeFamilies               #-}
+
+module Models where
+
+import Database.Persist.TH
+
+share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
+  BlogPost
+    title String
+    content String
+    deriving Eq Show
+|]