blob: 17d1ca15339ad0c166692438288e318c50e3295b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module UI where
import Prelude
import Effect (Effect)
import Effect.Class (class MonadEffect, liftEffect)
foreign import _cheatLog :: forall a. a -> Effect Unit
cheatLog :: forall m a. MonadEffect m => a -> m Unit
cheatLog x = liftEffect $ _cheatLog x
foreign import _setInterval :: Number -> Effect Unit -> Effect Unit
setInterval :: forall m. MonadEffect m => Number -> Effect Unit -> m Unit
setInterval d f = liftEffect $ _setInterval d f
foreign import _toJSON :: forall a. a -> String
toJSON :: forall a. a -> String
toJSON = _toJSON
|
