From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Tue, 3 Feb 2009 10:19:18 +0000 (+0100)
Subject: Improve error message.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;ds=inline;h=8bc898050866c1684bd02b3d5437c12847106b8f;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Improve error message.
---

diff --git a/Translator.hs b/Translator.hs
index 363ffe2..77394e4 100644
--- 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)