halogen-websocket-ipc-playzone/drop/APIStuff.purs

4 lines
161 B
Plaintext

maybeCurrentConnection <- H.gets _.wsInfo.connection
when (isJust maybeCurrentConnection) do
H.modify_ _ { wsInfo { connection = Nothing, reconnect = true } }