mirror of
https://github.com/anoma/juvix.git
synced 2024-09-11 16:26:33 +03:00
Use Interval in GenericError (#125)
This commit is contained in:
parent
a4eb2124b2
commit
58534b8240
@ -12,6 +12,9 @@
|
|||||||
:error-patterns
|
:error-patterns
|
||||||
(
|
(
|
||||||
(error line-start (file-name) ":" line ":" column ": error:" (message (one-or-more (not "ת"))))
|
(error line-start (file-name) ":" line ":" column ": error:" (message (one-or-more (not "ת"))))
|
||||||
|
(error line-start (file-name) ":" line ":" column "-" end-column ": error:" (message (one-or-more (not "ת"))))
|
||||||
|
(error line-start (file-name) ":" line "-" end-line ":" column ": error:" (message (one-or-more (not "ת"))))
|
||||||
|
(error line-start (file-name) ":" line "-" end-line ":" column "-" end-column ": error:" (message (one-or-more (not "ת"))))
|
||||||
)
|
)
|
||||||
:modes minijuvix-mode
|
:modes minijuvix-mode
|
||||||
)
|
)
|
||||||
|
@ -11,8 +11,7 @@ import Prettyprinter.Render.Text
|
|||||||
import System.Console.ANSI qualified as Ansi
|
import System.Console.ANSI qualified as Ansi
|
||||||
|
|
||||||
data GenericError = GenericError
|
data GenericError = GenericError
|
||||||
{ _genericErrorLoc :: Loc,
|
{ _genericErrorLoc :: Interval,
|
||||||
_genericErrorFile :: FilePath,
|
|
||||||
_genericErrorMessage :: AnsiText,
|
_genericErrorMessage :: AnsiText,
|
||||||
_genericErrorIntervals :: [Interval]
|
_genericErrorIntervals :: [Interval]
|
||||||
}
|
}
|
||||||
@ -21,18 +20,17 @@ makeLenses ''GenericError
|
|||||||
|
|
||||||
instance Pretty GenericError where
|
instance Pretty GenericError where
|
||||||
pretty :: GenericError -> Doc a
|
pretty :: GenericError -> Doc a
|
||||||
pretty g =
|
pretty g = genericErrorHeader g <> pretty (g ^. genericErrorMessage)
|
||||||
let lineNum = g ^. genericErrorLoc . locFileLoc . locLine
|
|
||||||
colNum = g ^. genericErrorLoc . locFileLoc . locCol
|
instance HasLoc GenericError where
|
||||||
in pretty (g ^. genericErrorFile)
|
getLoc = (^. genericErrorLoc)
|
||||||
<> colon
|
|
||||||
<> pretty lineNum
|
genericErrorHeader :: GenericError -> Doc a
|
||||||
<> colon
|
genericErrorHeader g =
|
||||||
<> pretty colNum
|
pretty (g ^. genericErrorLoc)
|
||||||
<> colon <+> "error"
|
<> colon <+> "error"
|
||||||
<> colon
|
<> colon
|
||||||
<> line
|
<> line
|
||||||
<> pretty (g ^. genericErrorMessage)
|
|
||||||
|
|
||||||
class ToGenericError a where
|
class ToGenericError a where
|
||||||
genericError :: a -> GenericError
|
genericError :: a -> GenericError
|
||||||
@ -49,19 +47,8 @@ render ansi err
|
|||||||
helper f x = (f . layoutPretty defaultLayoutOptions) (header <> x <> endChar)
|
helper f x = (f . layoutPretty defaultLayoutOptions) (header <> x <> endChar)
|
||||||
g :: GenericError
|
g :: GenericError
|
||||||
g = genericError err
|
g = genericError err
|
||||||
|
|
||||||
header :: Doc a
|
header :: Doc a
|
||||||
header =
|
header = genericErrorHeader g
|
||||||
let lineNum = g ^. genericErrorLoc . locFileLoc . locLine
|
|
||||||
colNum = g ^. genericErrorLoc . locFileLoc . locCol
|
|
||||||
in pretty (g ^. genericErrorFile)
|
|
||||||
<> colon
|
|
||||||
<> pretty lineNum
|
|
||||||
<> colon
|
|
||||||
<> pretty colNum
|
|
||||||
<> colon <+> "error"
|
|
||||||
<> colon
|
|
||||||
<> line
|
|
||||||
endChar :: Doc a
|
endChar :: Doc a
|
||||||
endChar = "ת"
|
endChar = "ת"
|
||||||
|
|
||||||
|
@ -13,8 +13,7 @@ newtype ParserError = ParserError
|
|||||||
instance ToGenericError ParserError where
|
instance ToGenericError ParserError where
|
||||||
genericError e =
|
genericError e =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorLoc = intervalStartLoc i,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorFile = i ^. intervalFile,
|
|
||||||
_genericErrorMessage = AnsiText $ pretty @_ @AnsiStyle e,
|
_genericErrorMessage = AnsiText $ pretty @_ @AnsiStyle e,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
|
@ -28,8 +28,7 @@ data MultipleDeclarations = MultipleDeclarations
|
|||||||
instance ToGenericError MultipleDeclarations where
|
instance ToGenericError MultipleDeclarations where
|
||||||
genericError MultipleDeclarations {..} =
|
genericError MultipleDeclarations {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = _multipleDeclSecond ^. intervalFile,
|
{ _genericErrorLoc = i1,
|
||||||
_genericErrorLoc = intervalStartLoc i1,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i1, _multipleDeclSecond]
|
_genericErrorIntervals = [i1, _multipleDeclSecond]
|
||||||
}
|
}
|
||||||
@ -50,8 +49,7 @@ newtype InfixError = InfixError
|
|||||||
instance ToGenericError InfixError where
|
instance ToGenericError InfixError where
|
||||||
genericError InfixError {..} =
|
genericError InfixError {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -72,8 +70,7 @@ newtype InfixErrorP = InfixErrorP
|
|||||||
instance ToGenericError InfixErrorP where
|
instance ToGenericError InfixErrorP where
|
||||||
genericError InfixErrorP {..} =
|
genericError InfixErrorP {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -94,8 +91,7 @@ newtype LacksTypeSig = LacksTypeSig
|
|||||||
instance ToGenericError LacksTypeSig where
|
instance ToGenericError LacksTypeSig where
|
||||||
genericError LacksTypeSig {..} =
|
genericError LacksTypeSig {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -115,8 +111,7 @@ newtype LacksFunctionClause = LacksFunctionClause
|
|||||||
instance ToGenericError LacksFunctionClause where
|
instance ToGenericError LacksFunctionClause where
|
||||||
genericError LacksFunctionClause {..} =
|
genericError LacksFunctionClause {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -136,8 +131,7 @@ newtype ImportCycle = ImportCycle
|
|||||||
instance ToGenericError ImportCycle where
|
instance ToGenericError ImportCycle where
|
||||||
genericError ImportCycle {..} =
|
genericError ImportCycle {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -162,8 +156,7 @@ newtype QualSymNotInScope = QualSymNotInScope
|
|||||||
instance ToGenericError QualSymNotInScope where
|
instance ToGenericError QualSymNotInScope where
|
||||||
genericError QualSymNotInScope {..} =
|
genericError QualSymNotInScope {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -180,8 +173,7 @@ data BindGroupConflict = BindGroupConflict
|
|||||||
instance ToGenericError BindGroupConflict where
|
instance ToGenericError BindGroupConflict where
|
||||||
genericError BindGroupConflict {..} =
|
genericError BindGroupConflict {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i2 ^. intervalFile,
|
{ _genericErrorLoc = i2,
|
||||||
_genericErrorLoc = intervalStartLoc i2,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i1, i2]
|
_genericErrorIntervals = [i1, i2]
|
||||||
}
|
}
|
||||||
@ -204,8 +196,7 @@ data DuplicateFixity = DuplicateFixity
|
|||||||
instance ToGenericError DuplicateFixity where
|
instance ToGenericError DuplicateFixity where
|
||||||
genericError DuplicateFixity {..} =
|
genericError DuplicateFixity {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i2 ^. intervalFile,
|
{ _genericErrorLoc = i2,
|
||||||
_genericErrorLoc = intervalStartLoc i2,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i1, i2]
|
_genericErrorIntervals = [i1, i2]
|
||||||
}
|
}
|
||||||
@ -233,8 +224,7 @@ data MultipleExportConflict = MultipleExportConflict
|
|||||||
instance ToGenericError MultipleExportConflict where
|
instance ToGenericError MultipleExportConflict where
|
||||||
genericError MultipleExportConflict {..} =
|
genericError MultipleExportConflict {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -257,8 +247,7 @@ makeLenses ''NotInScope
|
|||||||
instance ToGenericError NotInScope where
|
instance ToGenericError NotInScope where
|
||||||
genericError e@NotInScope {..} =
|
genericError e@NotInScope {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = e ^. notInScopeSymbol . symbolLoc . intervalFile,
|
{ _genericErrorLoc = (e ^. notInScopeSymbol . symbolLoc),
|
||||||
_genericErrorLoc = intervalStartLoc (e ^. notInScopeSymbol . symbolLoc),
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [e ^. notInScopeSymbol . symbolLoc]
|
_genericErrorIntervals = [e ^. notInScopeSymbol . symbolLoc]
|
||||||
}
|
}
|
||||||
@ -298,8 +287,7 @@ makeLenses ''ModuleNotInScope
|
|||||||
instance ToGenericError ModuleNotInScope where
|
instance ToGenericError ModuleNotInScope where
|
||||||
genericError e@ModuleNotInScope {..} =
|
genericError e@ModuleNotInScope {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -323,8 +311,7 @@ newtype UnusedOperatorDef = UnusedOperatorDef
|
|||||||
instance ToGenericError UnusedOperatorDef where
|
instance ToGenericError UnusedOperatorDef where
|
||||||
genericError UnusedOperatorDef {..} =
|
genericError UnusedOperatorDef {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -344,8 +331,7 @@ data WrongTopModuleName = WrongTopModuleName
|
|||||||
instance ToGenericError WrongTopModuleName where
|
instance ToGenericError WrongTopModuleName where
|
||||||
genericError WrongTopModuleName {..} =
|
genericError WrongTopModuleName {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -370,8 +356,7 @@ data AmbiguousSym = AmbiguousSym
|
|||||||
instance ToGenericError AmbiguousSym where
|
instance ToGenericError AmbiguousSym where
|
||||||
genericError AmbiguousSym {..} =
|
genericError AmbiguousSym {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = i : is
|
_genericErrorIntervals = i : is
|
||||||
}
|
}
|
||||||
@ -389,8 +374,7 @@ data AmbiguousModuleSym = AmbiguousModuleSym
|
|||||||
instance ToGenericError AmbiguousModuleSym where
|
instance ToGenericError AmbiguousModuleSym where
|
||||||
genericError AmbiguousModuleSym {..} =
|
genericError AmbiguousModuleSym {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = i : is
|
_genericErrorIntervals = i : is
|
||||||
}
|
}
|
||||||
@ -408,8 +392,7 @@ data WrongLocationCompileBlock = WrongLocationCompileBlock
|
|||||||
instance ToGenericError WrongLocationCompileBlock where
|
instance ToGenericError WrongLocationCompileBlock where
|
||||||
genericError WrongLocationCompileBlock {..} =
|
genericError WrongLocationCompileBlock {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -431,8 +414,7 @@ data MultipleCompileBlockSameName = MultipleCompileBlockSameName
|
|||||||
instance ToGenericError MultipleCompileBlockSameName where
|
instance ToGenericError MultipleCompileBlockSameName where
|
||||||
genericError MultipleCompileBlockSameName {..} =
|
genericError MultipleCompileBlockSameName {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i2 ^. intervalFile,
|
{ _genericErrorLoc = i2,
|
||||||
_genericErrorLoc = intervalStartLoc i2,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i1, i2]
|
_genericErrorIntervals = [i1, i2]
|
||||||
}
|
}
|
||||||
@ -452,8 +434,7 @@ data MultipleCompileRuleSameBackend = MultipleCompileRuleSameBackend
|
|||||||
instance ToGenericError MultipleCompileRuleSameBackend where
|
instance ToGenericError MultipleCompileRuleSameBackend where
|
||||||
genericError MultipleCompileRuleSameBackend {..} =
|
genericError MultipleCompileRuleSameBackend {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -477,8 +458,7 @@ data WrongKindExpressionCompileBlock = WrongKindExpressionCompileBlock
|
|||||||
instance ToGenericError WrongKindExpressionCompileBlock where
|
instance ToGenericError WrongKindExpressionCompileBlock where
|
||||||
genericError WrongKindExpressionCompileBlock {..} =
|
genericError WrongKindExpressionCompileBlock {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
|
@ -20,8 +20,7 @@ makeLenses ''WrongConstructorType
|
|||||||
instance ToGenericError WrongConstructorType where
|
instance ToGenericError WrongConstructorType where
|
||||||
genericError e =
|
genericError e =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -50,8 +49,7 @@ makeLenses ''WrongConstructorAppArgs
|
|||||||
instance ToGenericError WrongConstructorAppArgs where
|
instance ToGenericError WrongConstructorAppArgs where
|
||||||
genericError e =
|
genericError e =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -89,8 +87,7 @@ makeLenses ''WrongType
|
|||||||
instance ToGenericError WrongType where
|
instance ToGenericError WrongType where
|
||||||
genericError e =
|
genericError e =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -124,8 +121,7 @@ makeLenses ''ExpectedFunctionType
|
|||||||
instance ToGenericError ExpectedFunctionType where
|
instance ToGenericError ExpectedFunctionType where
|
||||||
genericError e =
|
genericError e =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
@ -156,8 +152,7 @@ makeLenses ''TooManyPatterns
|
|||||||
instance ToGenericError TooManyPatterns where
|
instance ToGenericError TooManyPatterns where
|
||||||
genericError e =
|
genericError e =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
|
@ -16,8 +16,7 @@ makeLenses 'NoLexOrder
|
|||||||
instance ToGenericError NoLexOrder where
|
instance ToGenericError NoLexOrder where
|
||||||
genericError NoLexOrder {..} =
|
genericError NoLexOrder {..} =
|
||||||
GenericError
|
GenericError
|
||||||
{ _genericErrorFile = i ^. intervalFile,
|
{ _genericErrorLoc = i,
|
||||||
_genericErrorLoc = intervalStartLoc i,
|
|
||||||
_genericErrorMessage = prettyError msg,
|
_genericErrorMessage = prettyError msg,
|
||||||
_genericErrorIntervals = [i]
|
_genericErrorIntervals = [i]
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user