From 518ef6fff0d17440b7f19fdaed04061be5096848 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Wed, 4 Feb 2015 22:02:12 +0100
Subject: Showing transitions (horrible mess, needs care)

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

(limited to 'Handler/Home.hs')

diff --git a/Handler/Home.hs b/Handler/Home.hs
index ce0a584..42dde92 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -12,7 +12,8 @@ import Turing.Machine
 data Cmd = Beginning | Backward | Forward | Poll deriving Read
 
 wsTuring :: WebSocketsT Handler ()
-wsTuring = evalLoop defaultMachine [defaultConfig]
+wsTuring = do sendTextData . T.pack $ showTrans (trans defaultMachine)
+              evalLoop defaultMachine [defaultConfig]
     where defaultMachine = mWriteStr "Hello!"
           defaultConfig = mkConfig . map charToSym $  "_"
           evalLoop m [] = evalLoop m [defaultConfig]
@@ -42,6 +43,7 @@ getHomeR = do
 
     -- Identifiers used in HTML/JS code
     results <- newIdent
+    state <- newIdent
     butBeginning <- newIdent
     butBackward <- newIdent
     butTogglePlay <- newIdent
-- 
cgit v1.2.3