Improve error message for createSignalAssignments.

diff --git a/Translator.hs b/Translator.hs
index 29cf1481158bd3da9df5b49940e85aa68c9c7f08..6fa043c5e61039a6c52dd82f7920909b3f65c33d 100644 (file)
--- 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