Merge remote-tracking branch 'origin/feature/review'main

1 files changed, 8 insertions, 0 deletions

diff --git a/app/Exception.hs b/app/Exception.hs
index db7612b..6ac243b 100644
--- a/app/Exception.hs
+++ b/app/Exception.hs
@@ -8,6 +8,7 @@ module Exception
     InvalidIssue (..),
     CannotReadFile (..),
     UnsupportedLanguage (..),
+    NoAncestor (..),
   )
 where
 
@@ -16,6 +17,7 @@ import Control.Exception
 import Data.ByteString.Lazy.Char8 as LB
 import Data.Text qualified as T
 import Data.Void (Void)
+import Git.CommitHash qualified as Git
 import System.Exit (ExitCode)
 import Text.Megaparsec qualified as P
 
@@ -27,6 +29,7 @@ data AnyException
   | InvalidDiff' InvalidDiff
   | InvalidIssue' InvalidIssue
   | UnsupportedLanguage' UnsupportedLanguage
+  | NoAncestor' NoAncestor
   deriving (Show)
 
 instance Exception AnyException
@@ -74,3 +77,8 @@ data UnsupportedLanguage = UnsupportedLanguage T.Text
   deriving (Show)
 
 instance Exception UnsupportedLanguage
+
+data NoAncestor = NoAncestor Git.CommitHash Git.CommitHash
+  deriving (Show)
+
+instance Exception NoAncestor