From: Christiaan Baaij <christiaan.baaij@gmail.com>
Date: Mon, 28 Sep 2009 12:13:47 +0000 (+0200)
Subject: Fix error message genNegation for non-SizedWord types
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=9eb787bf4e8ee174f0df43af29e94298c23cb5a4;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Fix error message genNegation for non-SizedWord types
---

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)