X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FAuthorization.hs;h=5c3b9eec7229638f0ca5a1dcecc1336a5c415b3e;hb=1196f43ecedbb123515065f0440844864af906fb;hp=bcc8003e408056a194f59c58ed876edb5a39bab1;hpb=497cbd0e695fa05a0db8dd17dad7b303321ed1e0;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Authorization.hs b/Network/HTTP/Lucu/Authorization.hs
index bcc8003..5c3b9ee 100644
--- a/Network/HTTP/Lucu/Authorization.hs
+++ b/Network/HTTP/Lucu/Authorization.hs
@@ -1,4 +1,4 @@
--- #prune
+{-# OPTIONS_HADDOCK prune #-}
 
 -- |Manipulation of WWW authorization.
 module Network.HTTP.Lucu.Authorization
@@ -13,6 +13,7 @@ module Network.HTTP.Lucu.Authorization
     where
 
 import qualified Codec.Binary.Base64 as B64
+import           Data.Maybe
 import           Network.HTTP.Lucu.Parser
 import           Network.HTTP.Lucu.Parser.Http
 import           Network.HTTP.Lucu.Utils
@@ -59,7 +60,7 @@ authCredentialP = allowEOF $!
                                               c == '+' ||
                                               c == '/' ||
                                               c == '=')
-                     let decoded = map (toEnum . fromEnum) (B64.decode b64)
+                     let decoded = map (toEnum . fromEnum) (fromJust $ B64.decode b64)
                      case break (== ':') decoded of
                        (uid, ':' : password)
                            -> return (BasicAuthCredential uid password)