diff options
| author | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-19 19:35:30 +0000 |
|---|---|---|
| committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-19 19:35:30 +0000 |
| commit | 75e6abdcb78c70b7449e5fd7f48d8a3e6b3d164b (patch) | |
| tree | f66bf170f9340c86797a623394e63d07ffe66ee8 /src/VeriFuzz/Graph/CodeGen.hs | |
| parent | 4ba440d842e9a0502b429fbc04e2be41c8037a4c (diff) | |
| download | verismith-75e6abdcb78c70b7449e5fd7f48d8a3e6b3d164b.tar.gz verismith-75e6abdcb78c70b7449e5fd7f48d8a3e6b3d164b.zip | |
Set column to 100
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 |