[team] better email validation with address-rfc2821

parent 97dbe851
Pipeline #5969 canceled with stage
workspace:
packageSet:
registry: 50.10.0
registry: 50.11.0
extraPackages:
# garganscript packages
address-rfc2821: 0.1.1
d3:
git: https://github.com/garganscript/purescript-d3.git
ref: v0.11.0
......@@ -34,6 +33,11 @@ workspace:
git: https://github.com/garganscript/purescript-spec-discovery.git
ref: v8.2.0-spago-next
# backend:
# cmd: "purs-backend-es"
# args:
# - "build"
package:
name: gargantext
dependencies:
......
......@@ -8,6 +8,7 @@ import Data.RFC2821 as RFC2821
import Data.Show.Generic (genericShow)
import Data.String (Pattern(..), contains)
import Data.Tuple.Nested ((/\))
import Debug (debugger, spy)
import Effect.Aff (launchAff_)
import Effect.Class (liftEffect)
import Effect.Exception as Exception
......@@ -112,9 +113,12 @@ shareNodeInnerCpt = here.component "shareNodeInner" cpt
autocompleteSearch input = pure $ nub $ filter (contains (Pattern input)) completions
onAutocompleteClick _ = pure unit
onEnterPress text mError val = do
let eEmail = RFC2821.makeAddress state'
let eEmail = RFC2821.makeAddress val
case eEmail of
Left err -> T.write_ (Just "Email is invalid: " <> Exception.message err) mError
Left err -> do
let _ = spy "error" err
here.log2 "[onEnterPress] err" err
T.write_ (Just $ "Email is invalid: " <> Exception.message err) mError
Right _ -> do
T.write_ Nothing mError
launchAff_ do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment