diff options
Diffstat (limited to 'Upgrade/V0.hs')
| -rw-r--r-- | Upgrade/V0.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Upgrade/V0.hs b/Upgrade/V0.hs index 8f3af337e..00a08cb45 100644 --- a/Upgrade/V0.hs +++ b/Upgrade/V0.hs @@ -40,10 +40,10 @@ getKeysPresent0 dir = ifM (liftIO $ doesDirectoryExist dir) <$> (filterM present =<< getDirectoryContents dir) , return [] ) - where - present d = do - result <- tryIO $ - getFileStatus $ dir ++ "/" ++ takeFileName d - case result of - Right s -> return $ isRegularFile s - Left _ -> return False + where + present d = do + result <- tryIO $ + getFileStatus $ dir ++ "/" ++ takeFileName d + case result of + Right s -> return $ isRegularFile s + Left _ -> return False |