diff --git a/src/Util.elm b/src/Util.elm index 93564c0..f5f67b7 100644 --- a/src/Util.elm +++ b/src/Util.elm @@ -24,7 +24,9 @@ extractAuthCode : Navigation.Location -> Maybe String extractAuthCode { search } = case (String.split "?code=" search) of [ _, authCode ] -> - Just authCode + authCode + |> String.split "&" + |> List.head _ -> Nothing