X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Translator.hs;h=12393e8891f175dec71bedf6e7266a998f534a5b;hb=55d68cd587b7b980fe9e6da0142f99fdf40c0d26;hp=de091dc2f74c1e537b19e5fb4a131ffa045eeb02;hpb=e9945a3b25fa39d6a049a2e9c44f4beba98a41a1;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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