projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improve error message for createSignalAssignments.
[matthijs/master-project/cλash.git]
/
Translator.hs
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 (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
data SignalNameMap t =
Tuple [SignalNameMap t]
| Signal t