From 9eb787bf4e8ee174f0df43af29e94298c23cb5a4 Mon Sep 17 00:00:00 2001 From: Christiaan Baaij Date: Mon, 28 Sep 2009 14:13:47 +0200 Subject: [PATCH] Fix error message genNegation for non-SizedWord types --- "c\316\273ash/CLasH/VHDL/Generate.hs" | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git "a/c\316\273ash/CLasH/VHDL/Generate.hs" "b/c\316\273ash/CLasH/VHDL/Generate.hs" index 70b82a4..ea55cc2 100644 --- "a/c\316\273ash/CLasH/VHDL/Generate.hs" +++ "b/c\316\273ash/CLasH/VHDL/Generate.hs" @@ -345,7 +345,7 @@ genNegation' _ f [arg] = do let name = Name.getOccString (TyCon.tyConName tycon) case name of "SizedInt" -> return $ AST.Neg arg1 - otherwise -> error $ "\nGenerate.genNegation': Negation allowed for type: " ++ show name + otherwise -> error $ "\nGenerate.genNegation': Negation not allowed for type: " ++ show name -- | Generate a function call from the destination binder, function name and a -- list of expressions (its arguments) -- 2.30.2