From 21b670902a00e3211a488b929fea03c6b9693169 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Fri, 30 Nov 2018 23:01:01 +0000 Subject: Fix type issue in main --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'app/Main.hs') diff --git a/app/Main.hs b/app/Main.hs index d41d46b..e3efc80 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -14,6 +14,6 @@ instance Labellable Gate where main :: IO () --main = sample (arbitrary :: Gen (Circuit Input)) main = do - gr <- randomDAG 100 :: IO (Gr Gate ()) + gr <- genRandomDAG 100 :: IO (Gr Gate ()) -- _ <- runGraphviz (graphToDot quickParams $ emap (const "") gr) Png "output.png" T.putStrLn $ generate gr -- cgit