diff options
Diffstat (limited to 'app/Issue.hs')
| -rw-r--r-- | app/Issue.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/app/Issue.hs b/app/Issue.hs index b6ddad6..f6a516c 100644 --- a/app/Issue.hs +++ b/app/Issue.hs @@ -9,6 +9,8 @@ module Issue ) where +import Backend (Author (..), Commit (..)) +import Backend qualified as Backend import CMark qualified as D import CMark.Extra () import Comment qualified as G @@ -24,8 +26,6 @@ import Data.Text.IO qualified as T import Data.Time.Clock (UTCTime (utctDay)) import GHC.Generics (Generic) import GHC.Records (HasField (..)) -import Git (Author (..), Commit (..)) -import Git qualified import Issue.Parser qualified as I import Issue.Provenance (Provenance (..)) import Issue.Tag (Tag (..)) @@ -33,7 +33,7 @@ import Issue.Text qualified as I import Prelude hiding (id) data Issue = Issue - { commitHash :: Git.CommitHash, + { commitHash :: Backend.CommitHash, language :: G.Language, rawTextHash :: S.Digest S.SHA1State, title :: T.Text, @@ -100,7 +100,7 @@ instance HasField "id" Issue T.Text where getText :: Issue -> IO T.Text getText (Issue {..}) = T.decodeUtf8 . LB.toStrict . LB.take (fromIntegral (endByte - startByte)) . LB.drop (fromIntegral startByte) - <$> Git.readTextFileOfBS commitHash file + <$> Backend.readTextFileOfBS commitHash file replaceText :: Issue -> T.Text -> IO () replaceText issue s' = |