diff options
| -rw-r--r-- | src/Test/VeriFuzz/Verilog/CodeGen.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Test/VeriFuzz/Verilog/CodeGen.hs b/src/Test/VeriFuzz/Verilog/CodeGen.hs index 5e847a6..eaac48b 100644 --- a/src/Test/VeriFuzz/Verilog/CodeGen.hs +++ b/src/Test/VeriFuzz/Verilog/CodeGen.hs @@ -19,6 +19,7 @@ import Data.Maybe (isNothing) import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T +import Numeric (showHex) import Test.VeriFuzz.Internal.Shared import Test.VeriFuzz.Verilog.AST @@ -108,9 +109,7 @@ genExpr :: Expr -> Text genExpr (BinOp exprRhs bin exprLhs) = "(" <> genExpr exprRhs <> genBinaryOperator bin <> genExpr exprLhs <> ")" genExpr (Number s n) = - "(" <> sh (s * signum n) <> "'d" <> (sh . abs) n <> ")" - where - sh = T.pack . show + showT s <> "'h" <> T.pack (showHex n "") genExpr (Id i) = i ^. getIdentifier genExpr (Concat c) = "{" <> comma (genExpr <$> c) <> "}" genExpr (UnOp u e) = |