projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
TFVec builtin should now completely work
[matthijs/master-project/cλash.git]
/
cλash
/
CLasH
/
Utils
/
Core
/
CoreTools.hs
diff --git
a/cλash/CLasH/Utils/Core/CoreTools.hs
b/cλash/CLasH/Utils/Core/CoreTools.hs
index 254f77acf08bb5ec30502ef37b6385593053ba96..b4808026fe37958e0d34d81baf70a229a83a5517 100644
(file)
--- a/
cλash/CLasH/Utils/Core/CoreTools.hs
+++ b/
cλash/CLasH/Utils/Core/CoreTools.hs
@@
-212,7
+212,7
@@
getLiterals app@(CoreSyn.App _ _) = literals
(CoreSyn.Var f, args) = CoreSyn.collectArgs app
literals = filter (is_lit) args
(CoreSyn.Var f, args) = CoreSyn.collectArgs app
literals = filter (is_lit) args
-
-- reduceCoreListToHsList :: CoreExpr -> [a
]
+
reduceCoreListToHsList :: CoreSyn.CoreExpr -> [CoreSyn.CoreExpr
]
reduceCoreListToHsList app@(CoreSyn.App _ _) = out
where
(fun, args) = CoreSyn.collectArgs app
reduceCoreListToHsList app@(CoreSyn.App _ _) = out
where
(fun, args) = CoreSyn.collectArgs app