diff options
Diffstat (limited to 'Logs/Web.hs')
| -rw-r--r-- | Logs/Web.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Logs/Web.hs b/Logs/Web.hs index 534bd5345..c2a4deb7d 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -37,13 +37,13 @@ oldurlLogs key = {- Gets all urls that a key might be available from. -} getUrls :: Key -> Annex [URLString] getUrls key = go $ urlLog key : oldurlLogs key - where - go [] = return [] - go (l:ls) = do - us <- currentLog l - if null us - then go ls - else return us + where + go [] = return [] + go (l:ls) = do + us <- currentLog l + if null us + then go ls + else return us {- Records a change in an url for a key. -} setUrl :: Key -> URLString -> LogStatus -> Annex () |