Commit f84ded6b6f7b253c7656e9764b6ec53b145dd571 Parent: be1eb29554197bd3f25deea0a839007134a89e0a Author: mcol <mcol@posteo.net> Date: 2021-09-22 09:55:51 +0100 Committer: mcol <mcol@posteo.net> Committed: 2021-09-22 10:04:57 +0100 slim getDescription
src/Repositories.hs Modified
@@ -70,7 +70,4 @@ lookupTree (commitTree headc) >>= listTreeEntries getDescription :: FilePath -> IO String -getDescription path = tryIOError (readFile path) >>= \e -> - case e of - Right contents -> return contents - Left err -> return "" +getDescription path = either (const "") id <$> tryIOError (readFile path)