From 23abbde989d2809ef2b87f30ce16f58c54f175de Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Sun, 23 Dec 2018 12:03:20 +0000
Subject: Add nesting to the SourceText

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

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index bb2697a..cbe570b 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Main where
 
 import qualified Data.Graph.Inductive              as G
@@ -18,4 +20,4 @@ main = do
 --  _ <- runGraphviz (graphToDot quickParams $ emap (const "") gr) Png "output.png",
 --  T.putStrLn $ generate gr
   --g <- QC.generate (QC.arbitrary :: QC.Gen SourceText)
-  render . genSourceText . generateAST $ Circuit gr
+  render . genSourceText . nestSource (Identifier "w96") . generateAST $ Circuit gr
-- 
cgit