Re-enable authentication

2014-12-06 17:42:22 -08:00
parent 13bc9a4510
commit a45718e992
6 changed files with 65 additions and 57 deletions
@@ -96,7 +96,7 @@ app req =
        Nothing -> return $ responseLBS status400 [jsonH] $
          encode . object $ [("error", String "Failed to parse user.")]
        Just u -> do
-          _ <- liftIO $ addUser (cs $ userId u)
+          _ <- addUser (cs $ userId u)
            (cs $ userPass u) (cs $ userRole u)
          return $ responseLBS status201
            [ jsonH