blob: 33c4f7e3d162053ffb87da986ea3bb14b7d50ea5 (
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()
, async
, cacheable
, query
, 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)
data LoaderRef
foreign import data Loader :: !
foreign import asyncFn :: forall eff a. Fn3 (Maybe Error -> Boolean)
(Error -> Maybe Error -> Error)
LoaderRef
(Eff (loader :: Loader | eff) (Maybe Error -> a -> Eff (loader :: Loader | eff) Unit))
async :: forall eff a. LoaderRef -> Eff (loader :: Loader | eff) (Maybe Error -> a -> 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 query :: LoaderRef -> String
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
|
