1
1
module Firebase.Auth
2
2
( Auth
3
+ , ActionCodeSettings
4
+ , Email (..)
5
+ , IdTokenResult
6
+ , LanguageCode (..)
3
7
, User
8
+ , UserCredential
4
9
, createUserWithEmailAndPassword
5
10
, getAuth
11
+ , getCurrentUser
12
+ , getIdTokenResult
6
13
, getLanguageCode
7
14
, getUserIdToken
8
15
, isSignInWithEmailLink
@@ -17,27 +24,21 @@ module Firebase.Auth
17
24
, signInWithEmailLink
18
25
, signOut
19
26
, useDeviceLanguage
20
- , Email (..)
21
- , ActionCodeSettings
22
- , UserCredential
23
- , LanguageCode (..)
24
- , getCurrentUser
25
27
) where
26
28
27
29
import Prelude
28
30
29
31
import Control.Promise (Promise , toAffE )
32
+ import Data.Argonaut (class DecodeJson , class EncodeJson , Json , JsonDecodeError (..), encodeJson , decodeJson )
30
33
import Data.Either (Either , note )
31
34
import Data.Function.Uncurried (Fn1 , Fn2 , Fn3 , runFn1 , runFn2 , runFn3 )
32
35
import Data.Generic.Rep (class Generic )
33
- import Data.Maybe (Maybe )
36
+ import Data.Maybe (Maybe (..) )
34
37
import Data.Nullable (Nullable , null , toMaybe )
35
38
import Effect (Effect )
36
39
import Effect.Aff (Aff )
37
40
import Firebase.App (FirebaseApp )
38
41
import Unsafe.Coerce (unsafeCoerce )
39
- import Data.Argonaut (class DecodeJson , class EncodeJson , Json , JsonDecodeError (..), encodeJson , decodeJson )
40
- import Data.Maybe (Maybe (..))
41
42
42
43
foreign import data Auth :: Type
43
44
@@ -186,12 +187,12 @@ signInWithEmailLink emailLink (Email email) =
186
187
187
188
foreign import data IdTokenResult :: Type
188
189
189
- foreign import _getIdTokenResult :: Fn2 User Boolean (Effect (Promise UserCredential ))
190
+ foreign import _getIdTokenResult :: Fn2 User Boolean (Effect (Promise IdTokenResult ))
190
191
191
- getIdTokenResult :: Boolean -> User -> Auth -> Aff UserCredential
192
+ getIdTokenResult :: Boolean -> User -> Aff IdTokenResult
192
193
getIdTokenResult forceRefresh user =
193
194
runFn2
194
195
_getIdTokenResult
195
196
user
196
197
forceRefresh
197
- >>> toAffE
198
+ # toAffE
0 commit comments