Added meta variables to transfer front-end and core.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Transfer/Core/Skel.hs b/src/Transfer/Core/Skel.hs
index 287b237e0..22be8efe9 100644
--- a/src/Transfer/Core/Skel.hs
+++ b/src/Transfer/Core/Skel.hs
@@ -38,10 +38,12 @@ transTree t = case t of
   EType  -> failure t
   EStr str -> failure t
   EInt n -> failure t
+  EMeta tmeta -> failure t
   LetDef cident exp0 exp1 -> failure t
   Case pattern exp -> failure t
   FieldType cident exp -> failure t
   FieldValue cident exp -> failure t
+  TMeta str -> failure t
   CIdent str -> failure t
 
 transModule :: Module -> Result
@@ -91,6 +93,7 @@ transExp t = case t of
   EType  -> failure t
   EStr str -> failure t
   EInt n -> failure t
+  EMeta tmeta -> failure t
 
 transLetDef :: LetDef -> Result
 transLetDef t = case t of
@@ -108,6 +111,10 @@ transFieldValue :: FieldValue -> Result
 transFieldValue t = case t of
   FieldValue cident exp -> failure t
 
+transTMeta :: TMeta -> Result
+transTMeta t = case t of
+  TMeta str -> failure t
+
 transCIdent :: CIdent -> Result
 transCIdent t = case t of
   CIdent str -> failure t