aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/PursLoader/LoaderRef.purs
blob: 87d60065007b3f7631c85c727a4bba7b9d472c03 (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
41
42
43
module PursLoader.LoaderRef
  ( LoaderRef()
  , Loader()
  , AsyncCallback()
  , 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)

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 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