Merge pull request #344 from calebmer/feature/jwt-expire

Ensure JWT expires
2015-11-11 08:31:20 -08:00
parent 3f1d2d8ed9 62cb8e0453
commit 22c50392e5
7 changed files with 64 additions and 31 deletions
@@ -132,7 +132,7 @@ clearProjectsTable :: IO ()
 clearProjectsTable = do
  pool <- testPool
  void . liftIO $ H.session pool $ H.tx Nothing $
-    H.unitEx $ B.Stmt ("delete from test.projects where id > 4") V.empty True
+    H.unitEx $ B.Stmt "delete from test.projects where id > 4" V.empty True


 createItems :: Int -> IO ()