dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-24 15:12:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix types in test.

Browse Source
This commit is contained in:
Dillon Kearns 2021-12-23 15:14:21 -08:00
parent e99fc5570d
commit e3bab7392c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/StaticHttpRequestsTests.elm
View File

@ -12,6 +12,7 @@ import Html
import Json.Decode as JD
import Json.Encode as Encode
import OptimizedDecoder as Decode exposing (Decoder)
import PageServerResponse
import Pages.ContentCache as ContentCache exposing (ContentCache)
import Pages.Internal.NotFoundReason
import Pages.Internal.Platform.Cli exposing (..)
@ -1026,7 +1027,7 @@ startLowLevel apiRoutes staticHttpCache pages =
, update = \_ _ _ _ _ -> ( (), Cmd.none )
, basePath = []
, data =
\(Route pageRoute) ->
\isAvailable (Route pageRoute) ->
let
thing : Maybe (DataSource a)
thing =
@ -1040,7 +1041,7 @@ startLowLevel apiRoutes staticHttpCache pages =
in
case thing of
Just request ->
request |> DataSource.map (\_ -> ())
request |> DataSource.map (\_ -> PageServerResponse.RenderPage ())
Nothing ->
Debug.todo <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages
@ -1183,7 +1184,7 @@ startWithRoutes pageToLoad staticRoutes staticHttpCache pages =
, update = \_ _ _ _ _ -> ( (), Cmd.none )
, basePath = []
, data =
\(Route pageRoute) ->
\isAvailable (Route pageRoute) ->
let
thing : Maybe (DataSource a)
thing =
@ -1197,7 +1198,7 @@ startWithRoutes pageToLoad staticRoutes staticHttpCache pages =
in
case thing of
Just request ->
request |> DataSource.map (\_ -> ())
request |> DataSource.map (\_ -> PageServerResponse.RenderPage ())
Nothing ->
DataSource.fail <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages