File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -70,7 +70,7 @@ runDecodeM (DecodeM f) = f Left Left Right
7070--
7171-- This error is non-fatal and can be handled by '<|>'. See 'makeFatal'
7272-- for more information.
73- decodeThrow :: BaseDecodeError -> DecodeM a
73+ decodeThrow :: DecodeErrorKind -> DecodeM a
7474decodeThrow e = DecodeM $ \ _ onFail _ -> onFail $ DecodeError Nothing [([] , e)]
7575
7676-- | Throw a 'DecodeError_Custom' error.
Original file line number Diff line number Diff line change 77
88module KDL.Decoder.Internal.Error (
99 DecodeError (.. ),
10- BaseDecodeError (.. ),
10+ DecodeErrorKind (.. ),
1111 Context ,
1212 ContextItem (.. ),
1313 renderDecodeError ,
@@ -28,7 +28,7 @@ import KDL.Types (
2828
2929data DecodeError = DecodeError
3030 { filepath :: Maybe FilePath
31- , errors :: [(Context , BaseDecodeError )]
31+ , errors :: [(Context , DecodeErrorKind )]
3232 }
3333 deriving (Show , Eq )
3434instance Semigroup DecodeError where
@@ -51,7 +51,7 @@ data ContextItem
5151 }
5252 deriving (Show , Eq , Ord )
5353
54- data BaseDecodeError
54+ data DecodeErrorKind
5555 = DecodeError_Custom Text
5656 | DecodeError_ParseError Text
5757 | DecodeError_ExpectedNode { name :: Text , index :: Int }
You can’t perform that action at this time.
0 commit comments