module Language.PureScript.CoreFn.Ann where
import Prelude
import Language.PureScript.AST.SourcePos
import Language.PureScript.Comments
import Language.PureScript.CoreFn.Meta
import Language.PureScript.Types
type Ann = (SourceSpan, [Comment], Maybe SourceType, Maybe Meta)
ssAnn :: SourceSpan -> Ann
ssAnn :: SourceSpan -> Ann
ssAnn SourceSpan
ss = (SourceSpan
ss, [], forall a. Maybe a
Nothing, forall a. Maybe a
Nothing)
removeComments :: Ann -> Ann
(SourceSpan
ss, [Comment]
_, Maybe SourceType
ty, Maybe Meta
meta) = (SourceSpan
ss, [], Maybe SourceType
ty, Maybe Meta
meta)