From 0ea6e208f2c3c41922f8334174fc8e81a21d67f4 Mon Sep 17 00:00:00 2001
From: Yann Herklotz Grave <git@yannherklotzgrave.com>
Date: Sun, 17 Feb 2019 11:41:38 +0000
Subject: Brittany formatting

---
 src/VeriFuzz/CodeGen.hs | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

(limited to 'src/VeriFuzz/CodeGen.hs')

diff --git a/src/VeriFuzz/CodeGen.hs b/src/VeriFuzz/CodeGen.hs
index 99b52f6..4ff2a93 100644
--- a/src/VeriFuzz/CodeGen.hs
+++ b/src/VeriFuzz/CodeGen.hs
@@ -18,7 +18,8 @@ module VeriFuzz.CodeGen
     GenVerilog(..)
   , genSource
   , render
-  ) where
+  )
+where
 
 import           Control.Lens      (view, (^.))
 import           Data.Foldable     (fold)
@@ -97,10 +98,8 @@ genModuleItem (Decl dir port) = maybe "" makePort dir <> genPort port <> ";\n"
   where makePort = (<> " ") . genPortDir
 
 genModConn :: ModConn -> Text
-genModConn (ModConn c) =
-  genExpr c
-genModConn (ModConnNamed n c) =
-  "." <> n ^. getIdentifier <> "(" <> genExpr c <> ")"
+genModConn (ModConn c       ) = genExpr c
+genModConn (ModConnNamed n c) = "." <> n ^. getIdentifier <> "(" <> genExpr c <> ")"
 
 -- | Generate continuous assignment
 genContAssign :: ContAssign -> Text
@@ -117,14 +116,16 @@ genFunc UnSignedFunc = "$unsigned"
 -- | Generate 'Expr' to 'Text'.
 genExpr :: Expr -> Text
 genExpr (BinOp eRhs bin eLhs) = "(" <> genExpr eRhs <> genBinaryOperator bin <> genExpr eLhs <> ")"
-genExpr (Number s n         ) = "(" <> minus <> showT s <> "'h" <> T.pack (showHex (abs n) "") <> ")"
-  where minus | signum n >= 0 = "" | otherwise = "-"
-genExpr (Id     i           ) = i ^. getIdentifier
-genExpr (Concat c           ) = "{" <> comma (genExpr <$> c) <> "}"
-genExpr (UnOp u e           ) = "(" <> genUnaryOperator u <> genExpr e <> ")"
-genExpr (Cond l t f         ) = "(" <> genExpr l <> " ? " <> genExpr t <> " : " <> genExpr f <> ")"
-genExpr (Func f e           ) = genFunc f <> "(" <> genExpr e <> ")"
-genExpr (Str t              ) = "\"" <> t <> "\""
+genExpr (Number s n) = "(" <> minus <> showT s <> "'h" <> T.pack (showHex (abs n) "") <> ")"
+ where
+  minus | signum n >= 0 = ""
+        | otherwise     = "-"
+genExpr (Id     i  ) = i ^. getIdentifier
+genExpr (Concat c  ) = "{" <> comma (genExpr <$> c) <> "}"
+genExpr (UnOp u e  ) = "(" <> genUnaryOperator u <> genExpr e <> ")"
+genExpr (Cond l t f) = "(" <> genExpr l <> " ? " <> genExpr t <> " : " <> genExpr f <> ")"
+genExpr (Func f e  ) = genFunc f <> "(" <> genExpr e <> ")"
+genExpr (Str t     ) = "\"" <> t <> "\""
 
 -- | Convert 'BinaryOperator' to 'Text'.
 genBinaryOperator :: BinaryOperator -> Text
-- 
cgit