diff options
Diffstat (limited to 'Remote/Web.hs')
| -rw-r--r-- | Remote/Web.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index 04b453277..ef7d2b39a 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -120,7 +120,7 @@ checkKey' key us = firsthit us (Right False) $ \u -> do Url.withUrlOptions $ catchMsgIO . Url.checkBoth u' (keySize key) where - firsthit [] miss _ = return miss + firsthit [] miss _ = return miss firsthit (u:rest) _ a = do r <- a u case r of |