Add an error message.

diff --git a/Translator.hs b/Translator.hs
index 18c45d770589e62d4a19bbcebbda82bed5c5ade3..daf829258b388839959c5ca6d83becd1305645ef 100644 (file)
--- a/Translator.hs
+++ b/Translator.hs
@@ -165,7 +165,8 @@ getInstantiations args outs binds app@(App expr arg) =
        where
                ((Var f), args) = collectArgs app
 
        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.
 
 -- Map the output port of a component to the output port of the containing
 -- entity.