From 4864e2abaf4d1d79ab1bedde3aa75febf1d2ab66 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Sun, 3 Dec 2017 19:43:15 +0000
Subject: [PATCH] Hide debug

---
 web/Duet/IDE/View.hs | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/web/Duet/IDE/View.hs b/web/Duet/IDE/View.hs
index 407510a..99b33d2 100644
--- a/web/Duet/IDE/View.hs
+++ b/web/Duet/IDE/View.hs
@@ -21,21 +21,22 @@ import           React.Flux.Internal (ReactElementM)
 appview :: State -> () -> ReactElementM ViewEventHandler ()
 appview state _ = do
   renderNode (stateCursor state) (stateAST state)
-  Flux.p_
-    ["key" @= "pretty-printed"]
-    (Flux.text_
-       (Flux.elemText
-          (T.pack
-             (case stateAST state of
-                DeclNode (BindGroupDecl _ (BindGroup _ [[i]])) ->
-                  printImplicitlyTypedBinding defaultPrint i
-                _ -> "Nothing available to print."))))
-  Flux.p_
-    ["key" @= "shown"]
-    (Flux.text_
-       (Flux.elemText
-          (T.pack
-             (show (stateAST state)))))
+  when
+    False
+    (Flux.p_
+       ["key" @= "pretty-printed"]
+       (Flux.text_
+          (Flux.elemText
+             (T.pack
+                (case stateAST state of
+                   DeclNode (BindGroupDecl _ (BindGroup _ [[i]])) ->
+                     printImplicitlyTypedBinding defaultPrint i
+                   _ -> "Nothing available to print.")))))
+  when
+    False
+    (Flux.p_
+       ["key" @= "shown"]
+       (Flux.text_ (Flux.elemText (T.pack (show (stateAST state))))))
 
 renderNode :: Cursor -> Node -> ReactElementM ViewEventHandler ()
 renderNode cursor =