chicode / lisa / Lisa.Common


type alias Error =
{ recoverable : Recoverable
, loc : Location
, msg : String 
}


type alias LocatedNode a =
{ loc : Location, node : a }


type alias Location =
{ start : ( Basics.Int
, Basics.Int )
, end : ( Basics.Int
, Basics.Int ) 
}

encodeError : Error -> Json.Encode.Value

encodeResult : (a -> Json.Encode.Value) -> Result Error a -> Json.Encode.Value

encodeWithLocation : Location -> List ( String, Json.Encode.Value ) -> Json.Encode.Value

errNode : Recoverable -> LocatedNode a -> String -> Error

foldlListResult : (a -> b -> Result e b) -> b -> List a -> Result e b

foldrListResult : (a -> b -> Result e b) -> b -> List a -> Result e b

groupListEvery2 : List a -> Result a (List ( a, a ))

mapListResult : (a -> Result e b) -> List a -> Result e (List b)

mapNode : LocatedNode a -> b -> LocatedNode b

nonRecovErrNode : LocatedNode a -> String -> Error

nonRecovError : Location -> String -> Error