7 lines
125 B
Elm
7 lines
125 B
Elm
|
|
||
|
|
module Clicks where
|
||
|
|
import WebSocket
|
||
|
|
msgs = show <~ count Mouse.clicks
|
||
|
|
main = asText <~ open "ws://localhost:8080/ws" msgs
|
||
|
|
|