From 03b840cb5fb8ff5217fefc9e1240a3131db309fc Mon Sep 17 00:00:00 2001
From: eric thul <thul.eric@gmail.com>
Date: Tue, 11 Aug 2015 20:57:07 -0400
Subject: PureScript 0.7 updates and migration to pulp

---
 src/PursLoader/LoaderRef.purs | 56 +++++++++----------------------------------
 1 file changed, 11 insertions(+), 45 deletions(-)

(limited to 'src/PursLoader/LoaderRef.purs')

diff --git a/src/PursLoader/LoaderRef.purs b/src/PursLoader/LoaderRef.purs
index f1efa04..33c4f7e 100644
--- a/src/PursLoader/LoaderRef.purs
+++ b/src/PursLoader/LoaderRef.purs
@@ -9,6 +9,8 @@ module PursLoader.LoaderRef
   , resourcePath
   ) where
 
+import Prelude (Unit())
+
 import Control.Monad.Eff (Eff())
 import Control.Monad.Eff.Exception (Error())
 
@@ -19,56 +21,20 @@ data LoaderRef
 
 foreign import data Loader :: !
 
-foreign import asyncFn """
-function asyncFn(isJust, fromMaybe, ref){
-  return function(){
-    var callback = ref.async();
-    return function(error){
-      return function(value){
-        return function(){
-          return isJust(error) ? callback(fromMaybe(new Error())(error))
-                               : callback(null, value);
-        };
-      };
-    };
-  };
-}""" :: forall eff a. Fn3 (Maybe Error -> Boolean)
-                          (Error -> Maybe Error -> Error)
-                          LoaderRef
-                          (Eff (loader :: Loader | eff) (Maybe Error -> a -> Eff (loader :: Loader | eff) Unit))
+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 """
-function cacheable(ref){
-  return function(){
-    return ref.cacheable && ref.cacheable();
-  };
-}""" :: forall eff. LoaderRef -> Eff (loader :: Loader | eff) Unit
+foreign import cacheable :: forall eff. LoaderRef -> Eff (loader :: Loader | eff) Unit
 
-foreign import query """
-function query(ref){
-  return ref.query;
-}""" :: LoaderRef -> String
+foreign import query :: LoaderRef -> String
 
-foreign import clearDependencies """
-function clearDependencies(ref){
-  return function(){
-    return ref.clearDependencies();
-  };
-}""" :: forall eff. LoaderRef -> Eff (loader :: Loader | eff) Unit
+foreign import clearDependencies :: forall eff. LoaderRef -> Eff (loader :: Loader | eff) Unit
 
-foreign import resourcePath """
-function resourcePath(ref){
-  return ref.resourcePath;
-}""" :: LoaderRef -> String
+foreign import resourcePath :: LoaderRef -> String
 
-foreign import addDependency """
-function addDependency(ref){
-  return function(dep){
-    return function(){
-      return ref.addDependency(dep);
-    };
-  };
-}""" :: forall eff. LoaderRef -> String -> Eff (loader :: Loader | eff) Unit
+foreign import addDependency :: forall eff. LoaderRef -> String -> Eff (loader :: Loader | eff) Unit
-- 
cgit v1.2.3