snaplet-sqlite-simple 0.4.4 → 0.4.5

raw patch · 2 files changed

+6/−6 lines, 2 filesdep ~snap

Dependency ranges changed: snap

Files

• snaplet-sqlite-simple.cabal +2/−2
• test/Tests.hs +4/−4

@@ -1,5 +1,5 @@ name:           snaplet-sqlite-simple-version:        0.4.4+version:        0.4.5 synopsis:       sqlite-simple snaplet for the Snap Framework description:    This snaplet provides support for using the SQLite                 database with a Snap Framework application via the@@ -56,7 +56,7 @@     mtl                        >= 2       && < 3,     sqlite-simple              >= 0.4.1   && < 1.0,     direct-sqlite              >= 2.3.3   && < 2.4,-    snap                       >= 0.10    && < 0.13,+    snap                       >= 0.10    && < 0.14,     text                       >= 0.11    && < 0.12,     transformers               >= 0.2     && < 0.4,     unordered-containers       >= 0.2     && < 0.3

@@ -118,7 +118,7 @@     assertGoodUser :: Assertion     assertGoodUser = do       let hdl = with auth $ createUser "foo" "foo"-      res <- evalHandler (ST.get "" M.empty) hdl appInit+      res <- evalHandler Nothing (ST.get "" M.empty) hdl appInit       either (assertFailure . show) checkUserFields res      checkUserFields (Left _) =@@ -145,7 +145,7 @@     assertGoodUser :: Assertion     assertGoodUser = do       let loginHdl = with auth $ loginByUsername "foo" (ClearText "foo") True-      res <- evalHandler (ST.get "" M.empty) loginHdl appInit+      res <- evalHandler Nothing (ST.get "" M.empty) loginHdl appInit       either (assertFailure . show) checkLoggedInUser res      checkLoggedInUser (Left _) = assertBool "failed login" False@@ -158,7 +158,7 @@       let saveHdl = with auth $ saveUser (u { userLogin = "bar"                                             , userRoles = roles                                             , userMeta  = meta })-      res <- evalHandler (ST.get "" M.empty) saveHdl appInit+      res <- evalHandler Nothing (ST.get "" M.empty) saveHdl appInit       either (assertFailure . show) checkUpdatedUser res      roles = [Role $ BL.pack "Superman", Role $ BL.pack "Journalist"]@@ -176,5 +176,5 @@       assertEqual "account roles"  roles (userRoles u)       assertEqual "account meta data" meta (userMeta u)       let loginHdl = with auth $ loginByUsername "bar" (ClearText "foo") True-      res <- evalHandler (ST.get "" M.empty) loginHdl appInit+      res <- evalHandler Nothing (ST.get "" M.empty) loginHdl appInit       either (assertFailure . show) (assertBool "login as 'bar' ok?" . isRight) res