ae56eaa · warden · git.iko.soy

git.iko.soy/warden

Cleaned up backend

commitae56eaad5e8448ca6eb537ceef753b7e76be73eb authoriko <ilyakooo0@gmail.com> dateThu 28 Jul 2022, 18:58 (4 years ago) parent19819c7

3 files changed+6−27

compare with master

unifiedsplit

backend/BW/Logic.purs−6 backend/BW/Types.purs+1−2 backend/Main.purs+5−19

backend/BW/Logic.purs−6

@@ -4,23 +4,17 @@ import BW

44import BW.Types

55import Control.El

66import Prelude

7−import Control.Monad.Error.Class (throwError)

87import Control.Promise (Promise)

98import Control.Promise as Promise

109import Data.EncString as EncString

1110import Data.Function.Uncurried (runFn2, runFn3, runFn4)

1211import Data.JNullable (jnull, nullify)

13−import Data.Maybe (Maybe(..))

1412import Data.String as String

1513import Data.SymmetricCryptoKey (SymmetricCryptoKey)

1614import Data.SymmetricCryptoKey as SymmetricCryptoKey

1715import Effect.Aff.Class (class MonadAff, liftAff)

1816import Effect.Class (liftEffect)

19−import Effect.Class.Console (log)

20−import Effect.Exception (error)

2117import Effect.Exception as Exc

22−import Localstorage (class StorageKey)

23−import Web.Storage.Storage (Storage)

2418

2519-- | Creates the master key

2620makePreloginKey ::

backend/BW/Types.purs+1−2

@@ -3,11 +3,10 @@ module BW.Types where

33import Prelude

55import Data.Argonaut (class DecodeJson, class EncodeJson)

6−import Data.Date (Date)

76import Data.JNullable (JNullable)

87import Data.JOpt (JOpt)

98import Data.ShowableJson (ShowableJson)

10−import Data.Timestamp (Timestamp(..))

9+import Data.Timestamp (Timestamp)

1110

1211newtype EncryptedString

1312 = EncryptedString String

backend/Main.purs+5−19

@@ -2,35 +2,25 @@ module Main

22 ( main

33 ) where

5−import Bridge

65import Prelude

8−import BW (ApiService, CryptoService, Hash(..), Services)

7+import BW (ApiService, CryptoService, Hash, Services)

98import BW as WB

109import BW.Logic (decrypt, hashPassword, liftPromise)

1110import BW.Logic as Logic

12−import BW.Types (CipherResponse, Email(..), EncryptedString(..), IdentityTokenResponse, Password(..), PreloginResponse, SyncResponse, Urls, PreloginRequest)

11+import BW.Types (CipherResponse, Email(..), IdentityTokenResponse, Password(..), PreloginResponse, SyncResponse, Urls)

1312import Bridge as Bridge

1413import Control.El (class HasL, Al, L(..), l)

1514import Control.Monad.Reader (runReaderT)

16−import Control.Promise (Promise)

17−import Control.Promise as Promise

18−import Data.Argonaut (class DecodeJson, class EncodeJson, encodeJson)

19−import Data.Argonaut as Json

20−import Data.Array as A

15+import Data.Argonaut (class DecodeJson)

2116import Data.Either (Either(..))

22−import Data.JNullable (JNullable(..), jnull, nullify)

17+import Data.JNullable (jnull, nullify)

2318import Data.Maybe (Maybe(..))

24−import Data.Nullable (Nullable, null, toNullable)

25−import Data.Nullable as Nullable

2619import Data.SymmetricCryptoKey (SymmetricCryptoKey)

2720import Data.Timestamp as Timestamp

2821import Data.Traversable (traverse)

2922import Effect (Effect)

3023import Effect.Aff (Aff, runAff_, try)

31−import Effect.Aff as Aff

32−import Effect.Aff.Class (class MonadAff, liftAff)

33−import Effect.Aff.Class as Aff

3424import Effect.Class (liftEffect)

3525import Effect.Class.Console (log)

3626import Effect.Exception as Exc

@@ -38,12 +28,8 @@ import Effect.Ref as Ref

3828import Elm as Elm

3929import FFI (Elm)

4030import FFI as FFI

41−import Localstorage (class StorageKey, storageKey)

31+import Localstorage (class StorageKey)

4232import Localstorage as Storage

43−import Localstorage as Storage

44−import Prelude as Array

45−import Unsafe.Coerce (unsafeCoerce)

46−import Web.HTML (Window)

4733import Web.HTML as Html

4834import Web.HTML.Window as Window

4935import Web.Storage.Storage (Storage)