From af8353c6164aaaaa836bfed181f883ac86bb76a5 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Jan 2020 14:03:31 +0100
Subject: Sign in with email and password

---
 common/src/Common/Model/InitResult.hs | 18 ------------------
 common/src/Common/Model/Password.hs   | 12 ++++++++++++
 common/src/Common/Model/SignInForm.hs |  3 ++-
 3 files changed, 14 insertions(+), 19 deletions(-)
 delete mode 100644 common/src/Common/Model/InitResult.hs
 create mode 100644 common/src/Common/Model/Password.hs

(limited to 'common/src/Common/Model')

diff --git a/common/src/Common/Model/InitResult.hs b/common/src/Common/Model/InitResult.hs
deleted file mode 100644
index f4c08a9..0000000
--- a/common/src/Common/Model/InitResult.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module Common.Model.InitResult
-  ( InitResult(..)
-  ) where
-
-import           Data.Aeson        (FromJSON, ToJSON)
-import           Data.Text         (Text)
-import           GHC.Generics      (Generic)
-
-import           Common.Model.Init (Init)
-
-data InitResult =
-  InitSuccess Init
-  | InitError Text
-  | InitEmpty
-  deriving (Show, Generic)
-
-instance FromJSON InitResult
-instance ToJSON InitResult
diff --git a/common/src/Common/Model/Password.hs b/common/src/Common/Model/Password.hs
new file mode 100644
index 0000000..1b51a47
--- /dev/null
+++ b/common/src/Common/Model/Password.hs
@@ -0,0 +1,12 @@
+module Common.Model.Password
+  ( Password(..)
+  ) where
+
+import           Data.Aeson   (FromJSON, ToJSON)
+import           Data.Text    (Text)
+import           GHC.Generics (Generic)
+
+newtype Password = Password Text deriving (Show, Generic)
+
+instance FromJSON Password
+instance ToJSON Password
diff --git a/common/src/Common/Model/SignInForm.hs b/common/src/Common/Model/SignInForm.hs
index 2b8c955..7a25935 100644
--- a/common/src/Common/Model/SignInForm.hs
+++ b/common/src/Common/Model/SignInForm.hs
@@ -7,7 +7,8 @@ import           Data.Text    (Text)
 import           GHC.Generics (Generic)
 
 data SignInForm = SignInForm
-  { _signIn_email :: Text
+  { _signInForm_email    :: Text
+  , _signInForm_password :: Text
   } deriving (Show, Generic)
 
 instance FromJSON SignInForm
-- 
cgit v1.2.3