From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 29 Jan 2009 15:49:05 +0000 (+0100)
Subject: Add a base case to splitTupleConstructorArgs.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=55d68cd587b7b980fe9e6da0142f99fdf40c0d26;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Add a base case to splitTupleConstructorArgs.

Apparently we've never tried to find the end of the returned list before :-)
---

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