X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Translator.hs;h=bdf66882954c1d108163fc4cd0df7937816c2d9c;hb=9bffa6fd1ddc30866e7092ee477c0ee03a10a062;hp=2f6a2922d4bad2098cc4aa722af698b00998c1bf;hpb=66ef8c863b9e1b5c36fdecb160a5023fb06f8d2d;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Translator.hs b/Translator.hs
index 2f6a292..bdf6688 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -137,10 +137,10 @@ expandExpr binds lam@(Lam b expr) = do
           res_signal')
 
 expandExpr binds (Var id) =
-  return ([], [], [], Single (signal_id, ty))
+  return ([], [], [], bind)
   where
     -- Lookup the id in our binds map
-    Single (signal_id, ty) = Maybe.fromMaybe
+    bind = Maybe.fromMaybe
       (error $ "Argument " ++ getOccString id ++ "is unknown")
       (lookup id binds)