diff options
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 |