Add new BaseDecodeError alias

Author: brandonchinn178

src/KDL/Decoder/Internal/Error.hs

@@ -7,6 +7,7 @@
 
 module KDL.Decoder.Internal.Error (
   DecodeError (..),
+  BaseDecodeError,
   DecodeErrorKind (..),
   Context,
   ContextItem (..),
@@ -28,14 +29,15 @@ import KDL.Types (
 
 data DecodeError = DecodeError
   { filepath :: Maybe FilePath
-  , errors :: [(Context, DecodeErrorKind)]
+  , errors :: [BaseDecodeError]
   }
   deriving (Show, Eq)
 instance Semigroup DecodeError where
   DecodeError fp1 e1 <> DecodeError fp2 e2 = DecodeError (fp1 <|> fp2) (e1 <> e2)
 instance Monoid DecodeError where
   mempty = DecodeError Nothing []
 
+type BaseDecodeError = (Context, DecodeErrorKind)
 type Context = [ContextItem]
 
 data ContextItem