gitja - return x =<< y -> x <$> y

Commit 46118e62f0c18d9b5dbcb92f3095fd9fe9a69f1d
Parent: a6fb8ec09ef62c90f5264c5e7283a5ac6f567c91
Author: mcol <mcol@posteo.net>
Date: 2021-10-04 21:56:39 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2021-10-04 21:56:39 +0100

return x =<< y  ->  x <$> y

src/Repositories.hs Modified

@@ -136,8 +136,8 @@
     return $ zipWith TreeFile (fmap fst entries) contents
 
 gvalTreeEntry :: TreeEntry LgRepo -> ReaderT LgRepo IO TreeFileContents
-gvalTreeEntry (BlobEntry oid _) = return . FileContents . decodeUtf8With lenientDecode =<< catBlob oid
-gvalTreeEntry (TreeEntry oid) = return . FolderContents . fmap fst =<< listTreeEntries =<< lookupTree oid
+gvalTreeEntry (BlobEntry oid _) = FileContents . decodeUtf8With lenientDecode <$> catBlob oid
+gvalTreeEntry (TreeEntry oid) = FolderContents . fmap fst <$> (listTreeEntries =<< lookupTree oid)
 gvalTreeEntry (CommitEntry _) = return . FileContents $ "No contents"