From 9bb2f6d5a8815ec10f83e917395ac511a153e6f2 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Fri, 16 Nov 2018 21:17:29 +0000 Subject: Basic generation with errors --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index fd07ef1..d41d46b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -15,5 +15,5 @@ main :: IO () --main = sample (arbitrary :: Gen (Circuit Input)) main = do gr <- randomDAG 100 :: IO (Gr Gate ()) - _ <- runGraphviz (graphToDot quickParams $ emap (const "") gr) Png "output.png" +-- _ <- runGraphviz (graphToDot quickParams $ emap (const "") gr) Png "output.png" T.putStrLn $ generate gr -- cgit