module Language.PureScript.CoreFn.Ann where import Prelude import Language.PureScript.AST.SourcePos (SourceSpan) import Language.PureScript.Comments (Comment) import Language.PureScript.CoreFn.Meta (Meta) -- | -- Type alias for basic annotations -- type Ann = (SourceSpan, [Comment], Maybe Meta) -- | -- An annotation empty of metadata aside from a source span. -- ssAnn :: SourceSpan -> Ann ssAnn :: SourceSpan -> Ann ssAnn SourceSpan ss = (SourceSpan ss, [], forall a. Maybe a Nothing) -- | -- Remove the comments from an annotation -- removeComments :: Ann -> Ann removeComments :: Ann -> Ann removeComments (SourceSpan ss, [Comment] _, Maybe Meta meta) = (SourceSpan ss, [], Maybe Meta meta)