X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Flatten.hs;h=cd515859f0879755d9d7f6e704bfb241271d9fbc;hb=5f9b7f3e0c999e765f75b0c48b0f675d99842cea;hp=e62f1869fd1182ed1251ea5249164ac934242ab8;hpb=668cd4041980db707d6afb0cfb5aed4036b0b46b;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Flatten.hs b/Flatten.hs
index e62f186..cd51585 100644
--- 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