From 02d0f2aa3e4ee538a1f05de8032c448462150296 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 1 Jan 2019 15:03:02 +0100 Subject: Fix logic in CodeGen with maybe --- src/Test/VeriFuzz/Verilog/CodeGen.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Test/VeriFuzz/Verilog/CodeGen.hs b/src/Test/VeriFuzz/Verilog/CodeGen.hs index ce6541e..5e847a6 100644 --- a/src/Test/VeriFuzz/Verilog/CodeGen.hs +++ b/src/Test/VeriFuzz/Verilog/CodeGen.hs @@ -15,7 +15,7 @@ module Test.VeriFuzz.Verilog.CodeGen where import Control.Lens import Data.Foldable (fold) -import Data.Maybe (fromMaybe, isNothing) +import Data.Maybe (isNothing) import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T @@ -91,7 +91,9 @@ genModuleItem (ModInst (Identifier id) (Identifier name) conn) = genModuleItem (Initial stat) = "initial " <> genStmnt stat genModuleItem (Always stat) = "always " <> genStmnt stat genModuleItem (Decl dir port) = - (maybe "" (<>" ") . genPortDir <$> dir) <> genPort port <> ";\n" + (maybe "" makePort dir) <> genPort port <> ";\n" + where + makePort = (<>" ") . genPortDir -- | Generate continuous assignment genContAssign :: ContAssign -> Text -- cgit