Sign in with email and password

3 files changed, 14 insertions, 19 deletions

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