Improve error message.

diff --git a/Translator.hs b/Translator.hs
index 363ffe2215aa7c47669157428acbf711bb48c14d..77394e41c65697d473f501857a26caabc29e03a7 100644 (file)
--- a/Translator.hs
+++ b/Translator.hs
@@ -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)