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
Remove nameFlatFunction from the VHDLState monad.
[matthijs/master-project/cλash.git]
/
VHDL.hs
diff --git
a/VHDL.hs
b/VHDL.hs
index 6f3705e421d6f0d55b16faef97054ac3f3462367..cdff47a0c1db9a257f9957f8299cdc8ace713343 100644
(file)
--- a/
VHDL.hs
+++ b/
VHDL.hs
@@
-38,12
+38,13
@@
getDesignFiles funcs =
createEntity ::
HsFunction -- | The function signature
-> FuncData -- | The function data collected so far
createEntity ::
HsFunction -- | The function signature
-> FuncData -- | The function data collected so far
- -> Maybe Entity -- | The resulting entity
+ -> Maybe Entity -- | The resulting entity. Should return the existing
+ --- Entity for builtin functions.
createEntity hsfunc fdata =
case flatFunc fdata of
-- Skip (builtin) functions without a FlatFunction
createEntity hsfunc fdata =
case flatFunc fdata of
-- Skip (builtin) functions without a FlatFunction
- Nothing ->
Nothing
+ Nothing ->
funcEntity fdata
-- Create an entity for all other functions
Just flatfunc ->
let
-- Create an entity for all other functions
Just flatfunc ->
let