dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 06:05:31 +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.Decode as JD
import Json.Encode as Encode import Json.Encode as Encode
import OptimizedDecoder as Decode exposing (Decoder) import OptimizedDecoder as Decode exposing (Decoder)
import PageServerResponse
import Pages.ContentCache as ContentCache exposing (ContentCache) import Pages.ContentCache as ContentCache exposing (ContentCache)
import Pages.Internal.NotFoundReason import Pages.Internal.NotFoundReason
import Pages.Internal.Platform.Cli exposing (..) import Pages.Internal.Platform.Cli exposing (..)
@ -1026,7 +1027,7 @@ startLowLevel apiRoutes staticHttpCache pages =
, update = \_ _ _ _ _ -> ( (), Cmd.none ) , update = \_ _ _ _ _ -> ( (), Cmd.none )
, basePath = [] , basePath = []
, data = , data =
\(Route pageRoute) -> \isAvailable (Route pageRoute) ->
let let
thing : Maybe (DataSource a) thing : Maybe (DataSource a)
thing = thing =
@ -1040,7 +1041,7 @@ startLowLevel apiRoutes staticHttpCache pages =
in in
case thing of case thing of
Just request -> Just request ->
request |> DataSource.map (\_ -> ()) request |> DataSource.map (\_ -> PageServerResponse.RenderPage ())
Nothing -> Nothing ->
Debug.todo <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages Debug.todo <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages
@ -1183,7 +1184,7 @@ startWithRoutes pageToLoad staticRoutes staticHttpCache pages =
, update = \_ _ _ _ _ -> ( (), Cmd.none ) , update = \_ _ _ _ _ -> ( (), Cmd.none )
, basePath = [] , basePath = []
, data = , data =
\(Route pageRoute) -> \isAvailable (Route pageRoute) ->
let let
thing : Maybe (DataSource a) thing : Maybe (DataSource a)
thing = thing =
@ -1197,7 +1198,7 @@ startWithRoutes pageToLoad staticRoutes staticHttpCache pages =
in in
case thing of case thing of
Just request -> Just request ->
request |> DataSource.map (\_ -> ()) request |> DataSource.map (\_ -> PageServerResponse.RenderPage ())
Nothing -> Nothing ->
DataSource.fail <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages DataSource.fail <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages