aboutsummaryrefslogtreecommitdiffstats
path: root/app/Comment.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Comment.hs')
-rw-r--r--app/Comment.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/app/Comment.hs b/app/Comment.hs
index febd47e..7c76561 100644
--- a/app/Comment.hs
+++ b/app/Comment.hs
@@ -9,6 +9,7 @@ module Comment
)
where
+import Backend qualified
import Comment.Language qualified as L
import Control.Applicative (liftA2)
import Control.Exception (catch)
@@ -26,7 +27,6 @@ import Foreign.Marshal.Alloc (alloca, free)
import Foreign.Marshal.Array (peekArray)
import Foreign.Storable
import GHC.Generics (Generic)
-import Git qualified
import System.FilePath (takeExtension)
import TreeSitter qualified as S
@@ -47,13 +47,13 @@ data Point = Point
}
deriving (Eq, Show, Generic, Binary)
-getComments :: Git.CommitHash -> FilePath -> IO [Comment]
+getComments :: Backend.CommitHash -> FilePath -> IO [Comment]
getComments commitHash filePath =
fmap mergeLineComments
. extractComments filePath language
. LB.toStrict
=<< catch
- (Git.readTextFileOfBS commitHash filePath)
+ (Backend.readTextFileOfBS commitHash filePath)
(\(_ :: E.CannotReadFile) -> pure "")
where
language = L.fromPath (takeExtension filePath)