create all tables

This commit is contained in:
Evgeny Poberezkin
2020-12-27 21:32:30 +00:00
parent 9d8df33cf7
commit 02cb6068a2
@@ -7,13 +7,7 @@ import Database.SQLite.Simple
createSchema :: Connection -> IO ()
createSchema conn =
mapM_
(execute_ conn)
[ recipientQueues --,
-- senderQueues,
-- connections,
-- messages
]
mapM_ (execute_ conn) [recipientQueues, senderQueues, connections, messages]
recipientQueues :: Query
recipientQueues =