freebsd-ports/lang/purescript/files/patch-src_Language_PureScript_CST_Utils.hs
Gleb Popov 19c26acbf0 Upgrade lang/ghc to 8.8.3 and many Haskell ports along the way.
PR:		244784
Submitted by:	Evilham <contact@evilham.com> (some ports)
2020-05-04 18:08:10 +00:00

35 lines
1.3 KiB
Haskell

--- src/Language/PureScript/CST/Utils.hs.orig 2019-11-02 17:39:14 UTC
+++ src/Language/PureScript/CST/Utils.hs
@@ -20,6 +20,32 @@ import Language.PureScript.CST.Types
import qualified Language.PureScript.Names as N
import Language.PureScript.PSString (PSString, mkString)
+
+newtype QualifiedProperName =
+ QualifiedProperName { getQualifiedProperName :: forall a. QualifiedName (N.ProperName a) }
+
+qualifiedProperName :: QualifiedName (N.ProperName a) -> QualifiedProperName
+qualifiedProperName n = QualifiedProperName (N.coerceProperName <$> n)
+
+
+newtype ProperName =
+ ProperName { getProperName :: forall a. Name (N.ProperName a) }
+
+properName :: Name (N.ProperName a) -> ProperName
+properName n = ProperName (N.coerceProperName <$> n)
+
+newtype QualifiedOpName =
+ QualifiedOpName { getQualifiedOpName :: forall a. QualifiedName (N.OpName a) }
+
+qualifiedOpName :: QualifiedName (N.OpName a) -> QualifiedOpName
+qualifiedOpName n = QualifiedOpName (N.coerceOpName <$> n)
+
+newtype OpName =
+ OpName { getOpName :: forall a. Name (N.OpName a) }
+
+opName :: Name (N.OpName a) -> OpName
+opName n = OpName (N.coerceOpName <$> n)
+
placeholder :: SourceToken
placeholder = SourceToken
{ tokAnn = TokenAnn (SourceRange (SourcePos 0 0) (SourcePos 0 0)) [] []