refactor `Query`

1 files changed, 13 insertions, 1 deletions

diff --git a/app/Exception.hs b/app/Exception.hs
index d67a8bc..0cccf5b 100644
--- a/app/Exception.hs
+++ b/app/Exception.hs
@@ -1,11 +1,23 @@
 module Exception
-  ( DuplicateField (DuplicateField),
+  ( DecodeException (DecodeException),
+    DuplicateField (DuplicateField),
+    ParseError (ParseError),
   )
 where
 
 import Control.Exception (Exception)
 
+data DecodeException = DecodeException
+  deriving (Show)
+
+instance Exception DecodeException
+
 data DuplicateField = DuplicateField String
   deriving (Show)
 
 instance Exception DuplicateField
+
+data ParseError = ParseError String
+  deriving (Show)
+
+instance Exception ParseError