diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-25 23:19:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-25 23:19:01 -0400 |
| commit | f32cb2cf1576db1395f77bd5f7f0c0a3e86c1334 (patch) | |
| tree | 7d61d584b86f263659c96d21e5aac235f6abe239 /Remote/WebDAV.hs | |
| parent | 9559613df8bb914b5034ba0f1aafd26884e5d9e7 (diff) | |
hlint
Diffstat (limited to 'Remote/WebDAV.hs')
| -rw-r--r-- | Remote/WebDAV.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index 97a6d96f9..ef4a5ed58 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -181,9 +181,9 @@ checkPresent r k = davAction r noconn go - or perhaps this was an intermittent error. -} onerr url = do v <- davUrlExists url user pass - if v == Right True - then return $ Left $ "failed to read " ++ url - else return v + return $ if v == Right True + then Left $ "failed to read " ++ url + else v withStoredFiles :: Remote |