Add an error message.
authorMatthijs Kooijman <m.kooijman@student.utwente.nl>
Wed, 21 Jan 2009 10:52:37 +0000 (11:52 +0100)
committerMatthijs Kooijman <m.kooijman@student.utwente.nl>
Wed, 21 Jan 2009 10:52:37 +0000 (11:52 +0100)
Translator.hs

index 18c45d770589e62d4a19bbcebbda82bed5c5ade3..daf829258b388839959c5ca6d83becd1305645ef 100644 (file)
@@ -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.