From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 21 Jan 2009 10:52:37 +0000 (+0100)
Subject: Add an error message.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=dc4be58dbddaa8e72b55efab24125404506617ff;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Add an error message.
---

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.