Rewrite in Rust

1 files changed, 0 insertions, 27 deletions

diff --git a/server/src/Model/HashedPassword.hs b/server/src/Model/HashedPassword.hs
deleted file mode 100644
index c71e372..0000000
--- a/server/src/Model/HashedPassword.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-module Model.HashedPassword
-  ( hash
-  , check
-  , HashedPassword(..)
-  ) where
-
-import qualified Crypto.BCrypt         as BCrypt
-import           Data.Text             (Text)
-import qualified Data.Text.Encoding    as TE
-
-import           Common.Model.Password (Password (..))
-
-newtype HashedPassword = HashedPassword Text deriving (Show)
-
-hash :: Password -> IO (Maybe HashedPassword)
-hash (Password p) = do
-  hashed <- BCrypt.hashPasswordUsingPolicy BCrypt.slowerBcryptHashingPolicy (TE.encodeUtf8 p)
-  case hashed of
-    Nothing ->
-      return Nothing
-
-    Just h ->
-      return . Just . HashedPassword . TE.decodeUtf8 $ h
-
-check :: Password -> HashedPassword -> Bool
-check (Password p) (HashedPassword h) =
-  BCrypt.validatePassword (TE.encodeUtf8 h) (TE.encodeUtf8 p)