TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 10:58:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Using elm-format for all files

Browse Source
This commit is contained in:
Eike Kettner
2019-12-29 21:55:12 +01:00
parent 546f1a6ee3
commit 2001cca88b
84 changed files with 7668 additions and 5079 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
modules/webapp/src/main/elm/Data/Flags.elm
View File

@ -1,28 +1,39 @@
module Data.Flags exposing (..)
module Data.Flags exposing
( Config
, Flags
, getToken
, withAccount
, withoutAccount
)
import Api.Model.AuthResult exposing (AuthResult)
type alias Config =
{ appName: String
, baseUrl: String
, signupMode: String
, docspellAssetPath: String
{ appName : String
, baseUrl : String
, signupMode : String
, docspellAssetPath : String
}
type alias Flags =
{ account: Maybe AuthResult
, config: Config
{ account : Maybe AuthResult
, config : Config
}
getToken: Flags -> Maybe String
getToken : Flags -> Maybe String
getToken flags =
flags.account
|> Maybe.andThen (\a -> a.token)
withAccount: Flags -> AuthResult -> Flags
withAccount : Flags -> AuthResult -> Flags
withAccount flags acc =
{ flags | account = Just acc }
withoutAccount: Flags -> Flags
withoutAccount : Flags -> Flags
withoutAccount flags =
{ flags | account = Nothing }