✨ functions

Author: codingedgar

package.json

@@ -1,6 +1,6 @@
 {
   "name": "purescript-firebase",
-  "version": "0.0.6",
+  "version": "0.0.7",
   "main": "index.js",
   "repository": "https://github.com/codingedgar/purescript-firebase.git",
   "author": "codingedgar <codingedgar@gmail.com>",

src/Firebase/Auth.purs

@@ -28,7 +28,7 @@ module Firebase.Auth
 
 import Prelude
 
-import Control.Promise (Promise, toAffE)
+import Control.Promise (Promise, toAffE, toAff)
 import Data.Argonaut (class DecodeJson, class EncodeJson, Json, JsonDecodeError(..), encodeJson, decodeJson)
 import Data.Either (Either, note)
 import Data.Function.Uncurried (Fn1, Fn2, Fn3, runFn1, runFn2, runFn3)
@@ -187,12 +187,11 @@ signInWithEmailLink emailLink (Email email) =
 
 foreign import data IdTokenResult :: Type
 
-foreign import _getIdTokenResult :: Fn2 User Boolean (Effect (Promise IdTokenResult))
+foreign import _getIdTokenResult :: Fn2 User Boolean (Promise IdTokenResult)
 
 getIdTokenResult :: Boolean -> User -> Aff IdTokenResult
 getIdTokenResult forceRefresh user =
-  runFn2
+  toAff $ runFn2
     _getIdTokenResult
     user
     forceRefresh
-    # toAffE

src/Firebase/Functions.js

@@ -0,0 +1,5 @@
+export {
+  getFunctions as _getFunctions,
+  httpsCallable as _httpsCallable
+} from 'firebase/functions';
+

src/Firebase/Functions.purs

@@ -0,0 +1,22 @@
+module Firebase.Functions where
+
+import Prelude
+
+import Data.Argonaut (Json)
+import Control.Promise (Promise, toAff)
+import Data.Function.Uncurried (Fn2, runFn2)
+import Effect.Aff (Aff)
+import Firebase.App (FirebaseApp)
+
+foreign import data Functions :: Type
+foreign import data HttpsCallable :: Type
+
+foreign import _httpsCallable :: forall  requestData. Fn2 Functions String  (requestData -> Promise Json)
+
+httpsCallable :: forall  requestData. Functions ->  String -> (requestData -> Aff Json)
+httpsCallable functions name = runFn2 _httpsCallable functions name >>> toAff
+
+foreign import _getFunctions :: FirebaseApp -> Functions
+
+getFunctions :: FirebaseApp -> Functions
+getFunctions = _getFunctions