/
Window.purs
55 lines (37 loc) · 2.25 KB
/
Window.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
-- | Defines events for the native `window` object
module Flame.Subscription.Window (onError, onError', onLoad, onLoad', onOffline, onOffline', onOnline, onOnline', onResize, onResize', onUnload, onUnload', onFocus, onFocus', onPopstate, onPopstate') where
import Flame.Subscription.Internal.Create as FSIC
import Flame.Types (Source(..), Subscription)
import Web.Event.Internal.Types (Event)
onPopstate :: forall message. message -> Subscription message
onPopstate = FSIC.createSubscription Window "popstate"
onPopstate' :: forall message. (Event -> message) -> Subscription message
onPopstate' = FSIC.createRawSubscription Window "popstate"
onFocus :: forall message. message -> Subscription message
onFocus = FSIC.createSubscription Window "focus"
onFocus' :: forall message. (Event -> message) -> Subscription message
onFocus' = FSIC.createRawSubscription Window "focus"
onError :: forall message. message -> Subscription message
onError = FSIC.createSubscription Window "error"
onError' :: forall message. (Event -> message) -> Subscription message
onError' = FSIC.createRawSubscription Window "error"
onResize :: forall message. message -> Subscription message
onResize = FSIC.createSubscription Window "resize"
onResize' :: forall message. (Event -> message) -> Subscription message
onResize' = FSIC.createRawSubscription Window "resize"
onOffline :: forall message. message -> Subscription message
onOffline = FSIC.createSubscription Window "offline"
onOffline' :: forall message. (Event -> message) -> Subscription message
onOffline' = FSIC.createRawSubscription Window "offline"
onOnline :: forall message. message -> Subscription message
onOnline = FSIC.createSubscription Window "online"
onOnline' :: forall message. (Event -> message) -> Subscription message
onOnline' = FSIC.createRawSubscription Window "online"
onLoad :: forall message. message -> Subscription message
onLoad = FSIC.createSubscription Window "load"
onLoad' :: forall message. (Event -> message) -> Subscription message
onLoad' = FSIC.createRawSubscription Window "load"
onUnload :: forall message. message -> Subscription message
onUnload = FSIC.createSubscription Window "unload"
onUnload' :: forall message. (Event -> message) -> Subscription message
onUnload' = FSIC.createRawSubscription Window "unload"