diff options
Diffstat (limited to 'src/VeriFuzz/Graph/CodeGen.hs')
-rw-r--r-- | src/VeriFuzz/Graph/CodeGen.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/VeriFuzz/Graph/CodeGen.hs b/src/VeriFuzz/Graph/CodeGen.hs index 3c45a9c..56b28aa 100644 --- a/src/VeriFuzz/Graph/CodeGen.hs +++ b/src/VeriFuzz/Graph/CodeGen.hs @@ -35,8 +35,7 @@ toOperator Or = " | " toOperator Xor = " ^ " statList :: Gate -> [Node] -> Maybe Text -statList g n = toStr <$> safe tail n - where toStr = fold . fmap ((<> toOperator g) . fromNode) +statList g n = toStr <$> safe tail n where toStr = fold . fmap ((<> toOperator g) . fromNode) lastEl :: [Node] -> Maybe Text lastEl n = fromNode <$> safe head n |