hashFor :: Text -> IO (Maybe HashedPassword)
hashFor password = do
  hashed <-
    hashPasswordUsingPolicy fastBcryptHashingPolicy $ encodeUtf8 password
  return (HashedPassword . decodeUtf8 <$> hashed)
hashFor :: Text -> IO (Maybe HashedPassword)
hashFor password = do
  hashed <-
    hashPasswordUsingPolicy fastBcryptHashingPolicy $ encodeUtf8 password
  return (HashedPassword . decodeUtf8 <$> hashed)
hashFor password = do
  hashed <-
    hashPasswordUsingPolicy fastBcryptHashingPolicy $ encodeUtf8 password
  return (HashedPassword . decodeUtf8 <$> hashed)