From dc4be58dbddaa8e72b55efab24125404506617ff Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 21 Jan 2009 11:52:37 +0100 Subject: [PATCH] Add an error message. --- Translator.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Translator.hs b/Translator.hs index 18c45d7..daf8292 100644 --- a/Translator.hs +++ b/Translator.hs @@ -165,7 +165,8 @@ getInstantiations args outs binds app@(App expr arg) = where ((Var f), args) = collectArgs app -getInstantiations args outs binds expr = showSDoc $ ppr $ expr +getInstantiations args outs binds expr = + error $ "Unsupported expression" ++ (showSDoc $ ppr $ expr) -- Map the output port of a component to the output port of the containing -- entity. -- 2.30.2