flip app args

2014-10-10 15:54:05 -07:00
parent 94e0a4b96a
commit 0879ed7110
3 changed files with 5 additions and 5 deletions
@@ -84,8 +84,8 @@ httpRequesterRole hdrs conn = do
    _ -> return NoCredentials


-app :: Connection -> DbRole -> Application
-app conn anonymous req respond = do
+app :: DbRole -> Connection -> Application
+app anonymous conn req respond = do
  attempt <- httpRequesterRole (requestHeaders req) conn

  case attempt of