mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

update build deps

Browse source
This commit is contained in:
Joey Hess 2012-07-26 05:13:27 -04:00
parent 9d6b59d0e2
commit 6cecc26206
4 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/WebApp.hs
View file

@ -25,7 +25,7 @@ import Control.Exception
import Crypto.Random
import Data.Digest.Pure.SHA
import qualified Data.ByteString.Lazy as L
import Data.AssocList
import Data.List
import qualified Data.Text as T
import qualified Data.Text.Encoding as TE
import Blaze.ByteString.Builder.Char.Utf8 (fromText)
@ -130,7 +130,7 @@ checkAuthToken extractToken = do
webapp <- getYesod
req <- getRequest
let params = reqGetParams req
if lookupDef "" "auth" params == extractToken webapp
if lookup "auth" params == Just (extractToken webapp)
then return Authorized
else return AuthenticationRequired