fix overindent
This commit is contained in:
parent
3f1aaa84c5
commit
9169234c34
1 changed files with 9 additions and 9 deletions
|
@ -248,16 +248,16 @@ verifyLocationLog' key desc present u updatestatus = do
|
|||
uuids <- loggedLocations key
|
||||
case (present, u `elem` uuids) of
|
||||
(True, False) -> do
|
||||
fix InfoPresent
|
||||
-- There is no data loss, so do not fail.
|
||||
return True
|
||||
fix InfoPresent
|
||||
-- There is no data loss, so do not fail.
|
||||
return True
|
||||
(False, True) -> do
|
||||
fix InfoMissing
|
||||
warning $
|
||||
"** Based on the location log, " ++ desc
|
||||
++ "\n** was expected to be present, " ++
|
||||
"but its content is missing."
|
||||
return False
|
||||
fix InfoMissing
|
||||
warning $
|
||||
"** Based on the location log, " ++ desc
|
||||
++ "\n** was expected to be present, " ++
|
||||
"but its content is missing."
|
||||
return False
|
||||
_ -> return True
|
||||
where
|
||||
fix s = do
|
||||
|
|
Loading…
Reference in a new issue