forked from GitHub/gf-core
Transfer: Added Double type.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user