From 56f62f31d88348e25636e13d9f8f57a04c1b0b74 Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 1 Dec 2005 16:55:57 +0000 Subject: Transfer: Added Double type. --- src/Transfer/Syntax/Skel.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/Transfer/Syntax/Skel.hs') diff --git a/src/Transfer/Syntax/Skel.hs b/src/Transfer/Syntax/Skel.hs index d9e51e9f6..a28e4a46a 100644 --- a/src/Transfer/Syntax/Skel.hs +++ b/src/Transfer/Syntax/Skel.hs @@ -60,7 +60,8 @@ transTree t = case t of EVar i -> failure t EType -> failure t EStr str -> failure t - EInt n -> failure t + EInteger n -> failure t + EDouble d -> failure t EMeta -> failure t LetDef i exp0 exp1 -> failure t Case pattern exp -> failure t @@ -141,7 +142,8 @@ transExp t = case t of EVar i -> failure t EType -> failure t EStr str -> failure t - EInt n -> failure t + EInteger n -> failure t + EDouble d -> failure t EMeta -> failure t transLetDef :: LetDef -> Result -- cgit v1.2.3