diff options
| author | Yann Herklotz <ymherklotz@gmail.com> | 2018-11-14 11:28:13 +0000 |
|---|---|---|
| committer | Yann Herklotz <ymherklotz@gmail.com> | 2018-11-14 11:28:13 +0000 |
| commit | d455be3b924fea2d42d593a6709557e637e83ad9 (patch) | |
| tree | 43229684c2dade70e39a0dfbbc4633d5ec320116 /src/Main.hs | |
| parent | 7d68a1e7ec557e62615a7f9eea438cff7805b120 (diff) | |
| download | verismith-d455be3b924fea2d42d593a6709557e637e83ad9.tar.gz verismith-d455be3b924fea2d42d593a6709557e637e83ad9.zip | |
Add style to the files
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/src/Main.hs b/src/Main.hs index 513b8cc..fd07ef1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,14 +1,12 @@ module Main where -import Data.GraphViz -import Data.Graph.Inductive -import Data.Graph.Inductive.PatriciaTree -import Data.GraphViz.Attributes.Complete -import Data.GraphViz.Commands -import Data.Text.Lazy -import Data.Text.IO as T +import Data.Graph.Inductive +import Data.GraphViz +import Data.GraphViz.Attributes.Complete +import Data.Text.IO as T +import Data.Text.Lazy -import Test.VeriFuzz +import Test.VeriFuzz instance Labellable Gate where toLabelValue gate = StrLabel . pack $ show gate @@ -16,6 +14,6 @@ instance Labellable Gate where main :: IO () --main = sample (arbitrary :: Gen (Circuit Input)) main = do - gr <- (randomDAG 100 :: IO (Gr Gate ())) - runGraphviz (graphToDot quickParams $ emap (\_ -> "") gr) Png "output.png" + gr <- randomDAG 100 :: IO (Gr Gate ()) + _ <- runGraphviz (graphToDot quickParams $ emap (const "") gr) Png "output.png" T.putStrLn $ generate gr |