diff options
Diffstat (limited to 'app/Git.hs')
-rw-r--r-- | app/Git.hs | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -97,12 +97,6 @@ readTextFileOfText = readTextFileOf LT.readFile LT.decodeUtf8 readTextFileOfBS :: CommitHash -> FilePath -> IO LB.ByteString readTextFileOfBS = readTextFileOf LB.readFile id --- REVIEW Suggestion: we could use `id` instead of `\x -> x` --- --- REVIEW OK! --- --- RESOLVED - readTextFileOf :: (FilePath -> IO a) -> (LB.ByteString -> a) -> CommitHash -> FilePath -> IO a readTextFileOf readFile _ WorkingTree filePath = catch |