X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Translator.hs;h=066124182ab1baf2dbdd84b6f692108a19b2ff3a;hb=d2e35e880d005998d3f810df71a43d4b707795d3;hp=363ffe2215aa7c47669157428acbf711bb48c14d;hpb=baeffe32403198471adb33c2aadd0312cf8eb410;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Translator.hs b/Translator.hs
index 363ffe2..0661241 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -125,7 +125,7 @@ expandExpr binds lam@(Lam b expr) = do
   let (arg_ty, _) = Type.splitFunTy (CoreUtils.exprType lam)
   -- Create signal names for the binder
   -- TODO: We assume arguments are ports here
-  let arg_signal = getPortNameMapForTy ("xxx") arg_ty (useAsPort arg_ty)
+  let arg_signal = getPortNameMapForTy signal_name arg_ty (useAsPort arg_ty)
   -- Create the corresponding signal declarations
   let signal_decls = mkSignalsFromMap arg_signal
   -- Add the binder to the list of binds
@@ -446,7 +446,7 @@ createSignalAssignments (Single (src, _)) Unused =
   []
 
 createSignalAssignments dst src =
-  error $ "Non matching source and destination: " ++ show dst ++ "\nand\n" ++  show src
+  error $ "Non matching source and destination: " ++ show dst ++ " <= " ++  show src
 
 type SignalNameMap = HsValueMap (AST.VHDLId, AST.TypeMark)