Store the Haskell Type in SignalInfo.

[matthijs/master-project/cλash.git] / Flatten.hs

diff --git a/Flatten.hs b/Flatten.hs
index e62f1869fd1182ed1251ea5249164ac934242ab8..cd515859f0879755d9d7f6e704bfb241271d9fbc 100644 (file)
--- a/Flatten.hs
+++ b/Flatten.hs
@@ -38,7 +38,7 @@ typeMapToUseMap ::
   -> FlattenState (SignalMap UnnamedSignal)
 
 typeMapToUseMap (Single ty) = do
-  id <- genSignalId
+  id <- genSignalId ty
   return $ Single id
 
 typeMapToUseMap (Tuple tymaps) = do