t3-server 0.1.0 → 0.1.1
raw patch · 2 files changed
+3/−3 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- src/T3/Web.hs +2/−2
- t3-server.cabal +1/−1
src/T3/Web.hs view
@@ -121,7 +121,7 @@ let name@(UserName un) = rreqName rreq srv <- server if T.null un- then return Nothing+ then badRequest else do userKey <- liftIO genUserKey mUsers <- liftIO . atomically $ do@@ -131,7 +131,7 @@ then return Nothing else writeTVar (srvUsers srv) users' >> return (Just users') case mUsers of- Nothing -> return Nothing+ Nothing -> badRequest Just users -> do storeUsers users return . Just $ RegisterResponse (UserCreds name userKey)
t3-server.cabal view
@@ -1,7 +1,7 @@ name: t3-server synopsis: tic-tac-toe server description: Please see README.md-version: 0.1.0+version: 0.1.1 cabal-version: >= 1.10 build-type: Simple license: BSD3