chore: move remaining `History.*` modules outside of `History`

1 files changed, 0 insertions, 54 deletions

diff --git a/app/History/IssueEvent.hs b/app/History/IssueEvent.hs
deleted file mode 100644
index 932cfd9..0000000
--- a/app/History/IssueEvent.hs
+++ /dev/null
@@ -1,54 +0,0 @@
-module History.IssueEvent (IssueEvent (..)) where
-
-import Data.Binary (Binary)
-import GHC.Generics (Generic)
-import History.CommitHash (CommitHash)
-import Issue (Issue)
-import Issue.Render qualified as I
-import Patch (Patch)
-import Render ((<<<))
-import Render qualified as P
-
-data IssueEvent
-  = IssueCreated
-      { hash :: CommitHash,
-        issue :: Issue,
-        patch :: Patch
-      }
-  | IssueChanged
-      { hash :: CommitHash,
-        oldIssue :: Issue,
-        issue :: Issue,
-        patch :: Patch
-      }
-  | IssueDeleted
-      { hash :: CommitHash,
-        issue :: Issue,
-        patch :: Patch
-      }
-  deriving (Show, Generic, Binary)
-
-instance P.Render IssueEvent where
-  render = P.render . P.Detailed
-
-instance P.Render (P.Detailed IssueEvent) where
-  render (P.Detailed issueEvent) =
-    P.Summarized issueEvent
-      <<< P.hardline @P.AnsiStyle
-      <<< issueEvent.patch
-
-instance P.Render (P.Summarized IssueEvent) where
-  render (P.Summarized issueEvent) =
-    case issueEvent of
-      IssueCreated {hash, issue} ->
-        P.Summarized hash
-          <<< P.styled [P.color P.Green] "created"
-          <<< I.IssueTitle issue
-      IssueChanged {hash, issue} ->
-        P.Summarized hash
-          <<< P.styled [P.color P.Green] "changed"
-          <<< I.IssueTitle issue
-      IssueDeleted {hash, issue} ->
-        P.Summarized hash
-          <<< P.styled [P.color P.Green] "deleted"
-          <<< I.IssueTitle issue