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
|
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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue