Commit 59ad6c32706458bc1d57fdd5fda8a1045f270c22
Parent: 7789b037f5077906f66956ba66d675abc879eb13
Author: mcol <mcol@posteo.net>
Date: 2022-05-29 19:40:23 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2022-05-29 19:40:23 +0100

remove unnecessary monomorphism

src/Repositories.hs Modified

@@ -307,8 +307,8 @@
 
     prependParent ::
         Git.TreeFilePath ->
-        (Git.TreeFilePath, Git.TreeEntry LgRepo) ->
-        (Git.TreeFilePath, Git.TreeEntry LgRepo)
+        (Git.TreeFilePath, Git.TreeEntry r) ->
+        (Git.TreeFilePath, Git.TreeEntry r)
     prependParent "" pathentry = pathentry
     prependParent parent (path, entry) = (mconcat [parent, "/", path], entry)
 
@@ -317,12 +317,12 @@
     getEntryContents (path, Git.TreeEntry oid) count = FolderContents <$> getTree' path count oid
     getEntryContents (_, Git.CommitEntry oid) _ = return . FileContents . B.fromString . show . untag $ oid
 
-    getEntryModes :: Git.TreeEntry LgRepo -> ReaderT LgRepo IO TreeEntryMode
+    getEntryModes :: Git.TreeEntry r -> ReaderT r IO TreeEntryMode
     getEntryModes (Git.BlobEntry _ kind) = return . blobkindToMode $ kind
     getEntryModes (Git.TreeEntry _) = return ModeDirectory
     getEntryModes (Git.CommitEntry _) = return ModeSubmodule
 
-    treePaths :: (Git.TreeFilePath, Git.TreeEntry LgRepo) -> T.Text
+    treePaths :: (Git.TreeFilePath, Git.TreeEntry r) -> T.Text
     treePaths = T.decodeUtf8With T.lenientDecode . fst
 
 {-