diff options
| author | Guillermo Ramos | 2015-02-04 22:02:12 +0100 |
|---|---|---|
| committer | Guillermo Ramos | 2015-02-04 22:02:12 +0100 |
| commit | 518ef6fff0d17440b7f19fdaed04061be5096848 (patch) | |
| tree | 97db033456fa76e2d4deefcb18a7af141668400d /Handler/Home.hs | |
| parent | e015dcc0af83d5331ec7561fd5bc57c3f3c54ef5 (diff) | |
| download | turing-web-518ef6fff0d17440b7f19fdaed04061be5096848.tar.gz | |
Showing transitions (horrible mess, needs care)
Diffstat (limited to 'Handler/Home.hs')
| -rw-r--r-- | Handler/Home.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |