From 68566ca5a376f8508fdd1c5eff3155cde7929850 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Mon, 12 Feb 2024 10:05:02 +0100 Subject: refactor `Query` --- app/Exception.hs | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'app/Exception.hs') 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 -- cgit v1.2.3