diff options
Diffstat (limited to 'src/Transfer/Core/Skel.hs')
| -rw-r--r-- | src/Transfer/Core/Skel.hs | 7 |
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 |
