🐙 Templated web page generator for your git repositories
git clone https://github.com/m-col/gitja
Files | Refs | Readme | License
Commit 98eeb46b94231f0c984557fd6bbff9aed36aaab2
Parent: 349c410a30363bcadeaf82b2854af0ef8e595a9c
Author: mcol <mcol@posteo.net>
Date: 2022-04-06 21:39:11 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2022-04-06 21:39:11 +0100

remove unnecessary let

src/Repositories.hs Modified

@@ -194,8 +194,7 @@
 
 loadDiff :: Git.Commit LgRepo -> ReaderT LgRepo IO Commit
 loadDiff gitCommit = do
-    let tree = Git.commitTree gitCommit
-    newTree <- Git.lookupTree tree
+    newTree <- Git.lookupTree . Git.commitTree $ gitCommit
     oldTree <-
         case listToMaybe . Git.commitParents $ gitCommit of
             Just parent ->