From 23bacb83e6ea67ffdd62be630626ab50ff665abf Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Tue, 5 Dec 2023 10:11:54 +0100
Subject: feat: parse issues as markdown

---
 app/Exception.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'app/Exception.hs')

diff --git a/app/Exception.hs b/app/Exception.hs
index 49c9cb6..a809616 100644
--- a/app/Exception.hs
+++ b/app/Exception.hs
@@ -5,12 +5,16 @@ module Exception
     ProcessException (..),
     UnknownFileExtension (..),
     InvalidDiff (..),
+    InvalidIssue (..),
   )
 where
 
+import CMark qualified as D
 import Control.Exception
 import Data.ByteString.Lazy.Char8 as LB
+import Data.Void (Void)
 import System.Exit (ExitCode)
+import Text.Megaparsec qualified as P
 
 data AnyException
   = InvalidTreeGrepperResult' InvalidTreeGrepperResult
@@ -18,6 +22,7 @@ data AnyException
   | ProcessException' ProcessException
   | UnknownFileExtension' UnknownFileExtension
   | InvalidDiff' InvalidDiff
+  | InvalidIssue' InvalidIssue
   deriving (Show)
 
 instance Exception AnyException
@@ -50,3 +55,8 @@ data InvalidDiff = InvalidDiff String
   deriving (Show)
 
 instance Exception InvalidDiff
+
+data InvalidIssue = InvalidIssue (P.ParseErrorBundle [D.Node] Void)
+  deriving (Show)
+
+instance Exception InvalidIssue
-- 
cgit v1.2.3