chrisdone/duet
1
1
Fork 0
mirror of https://github.com/chrisdone/duet.git synced 2025-01-08 06:53:22 +03:00
Code Issues Projects Releases Wiki Activity

Hide debug

Browse Source
This commit is contained in:
Chris Done 2017-12-03 19:43:15 +00:00
parent c71bc7ba38
commit 4864e2abaf
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
web/Duet/IDE/View.hs
View File

@ -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 =