From 55d68cd587b7b980fe9e6da0142f99fdf40c0d26 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Thu, 29 Jan 2009 16:49:05 +0100 Subject: [PATCH] Add a base case to splitTupleConstructorArgs. Apparently we've never tried to find the end of the returned list before :-) --- Translator.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Translator.hs b/Translator.hs index de091dc..12393e8 100644 --- a/Translator.hs +++ b/Translator.hs @@ -374,6 +374,8 @@ splitTupleConstructorArgs (e:es) = where (tys, vals) = splitTupleConstructorArgs es +splitTupleConstructorArgs [] = ([], []) + mapOutputPorts :: SignalNameMap AST.VHDLId -- The output portnames of the component -> SignalNameMap AST.VHDLId -- The output portnames and/or signals to map these to -- 2.30.2