From 6cecc26206c4a539999b04664136c6f785211a41 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 26 Jul 2012 05:13:27 -0400
Subject: update build deps

---
 Utility/WebApp.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Utility/WebApp.hs')

diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs
index fb82c2050..6936c6699 100644
--- a/Utility/WebApp.hs
+++ b/Utility/WebApp.hs
@@ -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
 
-- 
cgit v1.2.3