aboutsummaryrefslogtreecommitdiffstats
path: root/app/Git.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Git.hs')
-rw-r--r--app/Git.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/app/Git.hs b/app/Git.hs
index a3c82fa..d308026 100644
--- a/app/Git.hs
+++ b/app/Git.hs
@@ -105,6 +105,9 @@ getCommitOf commitHash@(Commit hash) = do
}
_ -> throwIO E.NoCommits
+-- TODO Fix `readTextFileOf`
+--
+-- Handle file does not exist in `WorkingTree` case.
readTextFileOf :: CommitHash -> FilePath -> IO LT.Text
readTextFileOf WorkingTree filePath = LT.readFile filePath
readTextFileOf (Commit hash) filePath =