Skip to content

P
purescript-gargantext
Commit 64405219 authored by James Laver's avatar James Laver
Browse files
Options

New login component

parent e7f00a37
Expand all Show whitespace changes
Inline Side-by-side
Showing with 96 additions and 126 deletions
src/Gargantext/Components/Login.purs
View file @ 64405219
This diff is collapsed.
src/Gargantext/Components/Login/Types.purs
View file @ 64405219
...@@ -8,6 +8,7 @@ import Data.Generic.Rep (class Generic) ...@@ -8,6 +8,7 @@ import Data.Generic.Rep (class Generic)
import Data.Generic.Rep.Eq (genericEq) import Data.Generic.Rep.Eq (genericEq)
import Data.Lens (Iso', iso) import Data.Lens (Iso', iso)
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
import Data.Newtype (class Newtype)
type Username = String type Username = String
type Password = String type Password = String
...@@ -32,9 +33,10 @@ newtype AuthData = AuthData ...@@ -32,9 +33,10 @@ newtype AuthData = AuthData
, tree_id :: TreeId , tree_id :: TreeId
} }
derive instance genericAuthData :: Generic AuthData _ derive instance genericAuthData :: Generic AuthData _
derive instance newtypeAuthData :: Newtype AuthData _
instance eqAuthData :: Eq AuthData where instance eqAuthData :: Eq AuthData where
eq = genericEq eq = genericEq
......
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