blob: 140d94ab9f94d106f438b820d36e755a1f9f2aa5 (
plain) (
blame)
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
|
module PursLoader.LoaderRef
( LoaderRef()
, Loader()
, AsyncCallback()
, async
, cacheable
, clearDependencies
, addDependency
, resourcePath
) where
import Prelude (Unit())
import Control.Monad.Eff (Eff())
import Control.Monad.Eff.Exception (Error())
import Data.Function (Fn3(), runFn3)
import Data.Maybe (Maybe(), fromMaybe, isJust)
type AsyncCallback eff = Maybe Error -> String -> Eff (loader :: Loader | eff) Unit
data LoaderRef
foreign import data Loader :: !
foreign import asyncFn :: forall eff. Fn3 (Maybe Error -> Boolean)
(Error -> Maybe Error -> Error)
LoaderRef
(Eff (loader :: Loader | eff) (AsyncCallback eff))
async :: forall eff. LoaderRef -> Eff (loader :: Loader | eff) (Maybe Error -> String -> Eff (loader :: Loader | eff) Unit)
async ref = runFn3 asyncFn isJust fromMaybe ref
foreign import cacheable :: forall eff. LoaderRef -> Eff (loader :: Loader | eff) Unit
foreign import clearDependencies :: forall eff. LoaderRef -> Eff (loader :: Loader | eff) Unit
foreign import resourcePath :: LoaderRef -> String
foreign import addDependency :: forall eff. LoaderRef -> String -> Eff (loader :: Loader | eff) Unit
|
