projects
/
matthijs
/
master-project
/
cλash.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4eb5c11
)
Remove some unused code.
author
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Mon, 13 Jul 2009 13:50:23 +0000
(15:50 +0200)
committer
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Mon, 13 Jul 2009 13:50:23 +0000
(15:50 +0200)
CoreTools.hs
patch
|
blob
|
history
diff --git
a/CoreTools.hs
b/CoreTools.hs
index 3a028195634a61100e47ae9322df72138688e8e9..4677af498b56680a0c2bf2362a0eda35cf528893 100644
(file)
--- a/
CoreTools.hs
+++ b/
CoreTools.hs
@@
-51,12
+51,6
@@
eval_tfp_int env ty =
let app = SrcLoc.noLoc $ HsExpr.HsApp (from_int_t) (undef)
let int_ty = SrcLoc.noLoc $ HsTypes.HsTyVar TysWiredIn.intTyCon_RDR
let expr = HsExpr.ExprWithTySig app int_ty
let app = SrcLoc.noLoc $ HsExpr.HsApp (from_int_t) (undef)
let int_ty = SrcLoc.noLoc $ HsTypes.HsTyVar TysWiredIn.intTyCon_RDR
let expr = HsExpr.ExprWithTySig app int_ty
- let foo_name = mkRdrName "Types.Data.Num" "foo"
- let foo_bind_name = RdrName.mkRdrUnqual $ OccName.mkVarOcc "foo"
- let binds = Bag.listToBag [SrcLoc.noLoc $ HsBinds.VarBind foo_bind_name (SrcLoc.noLoc $ HsExpr.HsVar foo_name)]
- let letexpr = HsExpr.HsLet
- (HsBinds.HsValBinds $ (HsBinds.ValBindsIn binds) [])
- (SrcLoc.noLoc expr)
core <- toCore expr
execCore core
core <- toCore expr
execCore core