From 55dbd3dcc8a8e6b9b5718be9e4da61a8ab031a72 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 29 Jan 2009 17:42:42 +0100
Subject: [PATCH] Improve error message for createSignalAssignments.

---
 Translator.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Translator.hs b/Translator.hs
index 29cf148..6fa043c 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -478,6 +478,9 @@ createSignalAssignments (Signal dst) (Signal src) =
 createSignalAssignments (Tuple dsts) (Tuple srcs) =
   concat $ zipWith createSignalAssignments dsts srcs
 
+createSignalAssignments dst src =
+  error $ "Non matching source and destination: " ++ show dst ++ "\nand\n" ++  show src
+
 data SignalNameMap t =
   Tuple [SignalNameMap t]
   | Signal  t
-- 
2.30.2