temporary pragma system

2024-01-25 11:15:09 -07:00
parent 170e4e36ae
commit 4c99e44c04
4 changed files with 38 additions and 20 deletions
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -25,9 +25,11 @@ module Core.Syntax
    , Module(..)
    , Program(..)
    , Program'
+    , Pragma(..)
    , unliftScDef
    , programScDefs
    , programTypeSigs
+    , programDataTags
    , Expr'
    , ScDef'
    , Alter'
@@ -102,6 +104,8 @@ data Alter b = Alter AltCon [b] (Expr b)

 deriving instance (Eq b) => Eq (Alter b)

+newtype Pragma = Pragma [T.Text]
+
 data Rec = Rec
         | NonRec
         deriving (Show, Read, Eq, Lift)