diff options
author | Joris | 2015-08-27 20:36:18 +0200 |
---|---|---|
committer | Joris | 2015-08-27 20:36:18 +0200 |
commit | fd86f021e88a00348ac0e03f03d81cb15bf3042b (patch) | |
tree | baf7cbb5cc01fccebc235e0e400cad94eb90de6b /src/server/Model/Database.hs | |
parent | a2527c34e6b0e719a948cfd36bfee5ffad095a30 (diff) | |
download | budget-fd86f021e88a00348ac0e03f03d81cb15bf3042b.tar.gz budget-fd86f021e88a00348ac0e03f03d81cb15bf3042b.tar.bz2 budget-fd86f021e88a00348ac0e03f03d81cb15bf3042b.zip |
Server payament delete
Diffstat (limited to 'src/server/Model/Database.hs')
-rw-r--r-- | src/server/Model/Database.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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) |