From 053be2bd7b06ecb371fa0e163d4d1c3e17fe0df3 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@ymhg.org>
Date: Mon, 15 Apr 2019 20:37:15 +0100
Subject: Move declaration of SourceInfo

---
 app/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index f20bc59..af6e568 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -206,7 +206,7 @@ handleOpts (Fuzz out configF force keep) = do
         S.mkdir_p $ S.fromText out
     vars <-
         sequence
-        $   (\x -> myForkIO $ V.runEquivalence (V.procedural config)
+        $   (\x -> myForkIO $ V.runEquivalence (V.procedural "top" config)
                                                ("test_" <> T.pack (show x))
                                                out
                                                keep
@@ -216,7 +216,7 @@ handleOpts (Fuzz out configF force keep) = do
     sequence_ $ takeMVar <$> vars
 handleOpts (Generate f c) = do
     config <- getConfig c
-    source <- V.proceduralIO config
+    source <- V.proceduralIO "top" config
     maybe (T.putStrLn $ V.genSource source)
           (flip T.writeFile (V.genSource source))
           f
-- 
cgit