X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;ds=sidebyside;f=VHDL.hs;h=cdff47a0c1db9a257f9957f8299cdc8ace713343;hb=193c179bc6abf610796b6076aee9f9b557d4b106;hp=6f3705e421d6f0d55b16faef97054ac3f3462367;hpb=d3a445954d4e2f93ff64839f4db72e7541b69a86;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/VHDL.hs b/VHDL.hs
index 6f3705e..cdff47a 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -38,12 +38,13 @@ getDesignFiles funcs =
 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
-    Nothing -> Nothing
+    Nothing -> funcEntity fdata
     -- Create an entity for all other functions
     Just flatfunc ->
       let