From 78862729e6c52ac5bf919079e2a81c5f318cf522 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 8 Sep 2018 05:27:50 +0200 Subject: Redirects to login (and back) if disconnected. --- src/character/src/Struct/Flags.elm | 42 -------------------------------------- 1 file changed, 42 deletions(-) delete mode 100644 src/character/src/Struct/Flags.elm (limited to 'src/character') diff --git a/src/character/src/Struct/Flags.elm b/src/character/src/Struct/Flags.elm deleted file mode 100644 index 228d258..0000000 --- a/src/character/src/Struct/Flags.elm +++ /dev/null @@ -1,42 +0,0 @@ -module Struct.Flags exposing - ( - Type, - maybe_get_param - ) - --- Elm ------------------------------------------------------------------------- -import List - --- Map ------------------------------------------------------------------- -import Util.List - --------------------------------------------------------------------------------- --- TYPES ----------------------------------------------------------------------- --------------------------------------------------------------------------------- -type alias Type = - { - user_id : String, - token : String, - url_params : (List (List String)) - } - --------------------------------------------------------------------------------- --- LOCAL ----------------------------------------------------------------------- --------------------------------------------------------------------------------- - --------------------------------------------------------------------------------- --- EXPORTED -------------------------------------------------------------------- --------------------------------------------------------------------------------- -maybe_get_param : String -> Type -> (Maybe String) -maybe_get_param param flags = - case - (Util.List.get_first - (\e -> ((List.head e) == (Just param))) - flags.url_params - ) - of - Nothing -> Nothing - (Just a) -> - case (List.tail a) of - Nothing -> Nothing - (Just b) -> (List.head b) -- cgit v1.2.3-70-g09d2