fix overindent

This commit is contained in:
Joey Hess 2016-05-10 13:08:16 -04:00
parent 3f1aaa84c5
commit 9169234c34
Failed to extract signature

View file

@ -248,16 +248,16 @@ verifyLocationLog' key desc present u updatestatus = do
uuids <- loggedLocations key uuids <- loggedLocations key
case (present, u `elem` uuids) of case (present, u `elem` uuids) of
(True, False) -> do (True, False) -> do
fix InfoPresent fix InfoPresent
-- There is no data loss, so do not fail. -- There is no data loss, so do not fail.
return True return True
(False, True) -> do (False, True) -> do
fix InfoMissing fix InfoMissing
warning $ warning $
"** Based on the location log, " ++ desc "** Based on the location log, " ++ desc
++ "\n** was expected to be present, " ++ ++ "\n** was expected to be present, " ++
"but its content is missing." "but its content is missing."
return False return False
_ -> return True _ -> return True
where where
fix s = do fix s = do