From fd86f021e88a00348ac0e03f03d81cb15bf3042b Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 27 Aug 2015 20:36:18 +0200
Subject: Server payament delete

---
 src/server/Model/Database.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/server/Model/Database.hs')

diff --git a/src/server/Model/Database.hs b/src/server/Model/Database.hs
index 7f1777a..8715ca1 100644
--- a/src/server/Model/Database.hs
+++ b/src/server/Model/Database.hs
@@ -27,12 +27,14 @@ User
   email Text
   name Text
   EmailKey email
+  UniqName name
   deriving Show
 Payment
   userId UserId
   creation UTCTime
   name Text
   cost Int
+  deletedAt UTCTime Maybe
   deriving Show
 SignIn
   token Text
@@ -51,5 +53,5 @@ runDb = runNoLoggingT . runResourceT . withSqliteConn "database" . runSqlConn
 runMigrations :: IO ()
 runMigrations = runDb $ runMigration migrateAll
 
-textToKey :: (ToBackendKey SqlBackend a) => String -> Key a
-textToKey text = toSqlKey (read text :: Int64)
+textToKey :: (ToBackendKey SqlBackend a) => Text -> Key a
+textToKey text = toSqlKey (read (unpack text) :: Int64)
-- 
cgit v1.2.3