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
We now use compileToCoreSimplified, I'm sure there will be dragons
[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 a66904e1141334c5d5b66083a24967aed152eea3..7377c9e36ce332e14c04f2a6cde234e47bf8eb95 100644
(file)
--- a/
cλash/CLasH/Utils/Core/CoreTools.hs
+++ b/
cλash/CLasH/Utils/Core/CoreTools.hs
@@
-220,6
+220,8
@@
getLiterals app@(CoreSyn.App _ _) = literals
(CoreSyn.Var f, args) = CoreSyn.collectArgs app
literals = filter (is_lit) args
+getLiterals lit@(CoreSyn.Lit _) = [lit]
+
reduceCoreListToHsList :: CoreSyn.CoreExpr -> [CoreSyn.CoreExpr]
reduceCoreListToHsList app@(CoreSyn.App _ _) = out
where