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

Add some additional types in generated code.

Browse Source
This commit is contained in:
Dillon Kearns 2022-10-17 14:48:01 -07:00
parent f1ce6bdc54
commit 5f8367478d
1 changed files with 30 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
codegen/GenerateMain.elm
View File

@ -510,9 +510,9 @@ otherFile routes phaseString =
}
subscriptions =
Elm.Declare.fn3 "subscriptions"
( "route", Nothing )
( "path", Nothing )
( "model", Nothing )
( "route", Type.named [ "Route" ] "Route" |> Type.maybe |> Just )
( "path", Type.named [ "Path" ] "Path" |> Just )
( "model", Type.named [] "Model" |> Just )
(\route path model ->
Gen.Platform.Sub.batch
[ Elm.apply
@ -530,6 +530,7 @@ otherFile routes phaseString =
|> Gen.Platform.Sub.call_.map (Elm.val "MsgGlobal")
, templateSubscriptions.call route path model
]
|> Elm.withType (Gen.Platform.Sub.annotation_.sub (Type.named [] "Msg"))
)
onActionData :
@ -617,6 +618,7 @@ otherFile routes phaseString =
)
)
}
|> Elm.withType (Gen.Platform.Sub.annotation_.sub (Type.named [] "Msg"))
)
dataForRoute :
@ -1232,22 +1234,25 @@ otherFile routes phaseString =
, value : List String -> Elm.Expression
}
fooFn =
{-
fooFn :
(a -> PageModel)
-> (b -> Msg)
-> Model
-> ( a, Effect.Effect b, Maybe Shared.Msg )
-> ( PageModel, Effect.Effect Msg, ( Shared.Model, Effect.Effect Msg ) )
fooFn wrapModel wrapMsg model triple =
Debug.todo ""
-}
Elm.Declare.fn4 "fooFn"
( "wrapModel", Nothing )
( "wrapMsg", Nothing )
( "wrapModel"
, Type.function [ Type.var "a" ]
(Type.named [] "PageModel")
|> Just
)
( "wrapMsg"
, Type.function [ Type.var "b" ]
(Type.named [] "Msg")
|> Just
)
( "model", Type.named [] "Model" |> Just )
( "triple", Nothing )
( "triple"
, Type.triple
(Type.var "a")
(Type.namedWith [ "Effect" ] "Effect" [ Type.var "b" ])
(Type.maybe (Type.named [ "Shared" ] "Msg"))
|> Just
)
(\wrapModel wrapMsg model triple ->
Elm.Case.custom triple
Type.unit
@ -1287,6 +1292,14 @@ otherFile routes phaseString =
)
)
]
|> Elm.withType
(Type.triple
(Type.named [] "PageModel")
(Type.namedWith [ "Effect" ] "Effect" [ Type.named [] "Msg" ])
(Type.tuple (Type.named [ "Shared" ] "Model")
(Type.namedWith [ "Effect" ] "Effect" [ Type.named [ "Shared" ] "Msg" ])
)
)
)
toTriple :