diff options
Diffstat (limited to 'src/UI.purs')
| -rw-r--r-- | src/UI.purs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/UI.purs b/src/UI.purs index d5913b7..645c346 100644 --- a/src/UI.purs +++ b/src/UI.purs @@ -37,3 +37,15 @@ setShader s = liftEffect $ _setShader s foreign import _submitShader :: String -> String -> Effect Unit submitShader :: forall m. MonadEffect m => String -> m Unit submitShader el = liftEffect $ _submitShader (Config.secureApiServer <> "/redeem") el + +foreign import _addOption :: String -> DOM.El.Element -> Effect Unit +addOption :: forall m. MonadEffect m => String -> DOM.El.Element -> m Unit +addOption o el = liftEffect $ _addOption o el + +foreign import _onInput :: DOM.El.Element -> (String -> Effect Unit) -> Effect Unit +onInput :: forall m. MonadEffect m => DOM.El.Element -> (String -> Effect Unit) -> m Unit +onInput el f = liftEffect $ _onInput el f + +foreign import _startBufferRefresh :: String -> DOM.El.Element -> Effect Unit +startBufferRefresh :: forall m. MonadEffect m => DOM.El.Element -> m Unit +startBufferRefresh el = liftEffect $ _startBufferRefresh (Config.apiServer <> "/gizmo/events") el |