Add siteUrl to application config record.

This commit is contained in:
Dillon Kearns 2019-09-08 13:01:36 +03:00
parent 958bc73ce9
commit 2d2602ca9c

View File

@ -85,6 +85,7 @@ application :
, head : metadata -> List (Head.Tag PathKey)
, documents : List (Pages.Document.DocumentParser metadata view)
, manifest : Pages.Manifest.Config PathKey
, siteUrl : String
}
-> Pages.Program userModel userMsg metadata view
application config =
@ -98,6 +99,7 @@ application config =
, toJsPort = toJsPort
, head = config.head
, manifest = config.manifest
, siteUrl = config.siteUrl
}
${staticRouteStuff(staticRoutes)}
@ -147,6 +149,7 @@ application :
, documents : List (Pages.Document.DocumentParser metadata view)
, head : metadata -> List (Head.Tag PathKey)
, manifest : Pages.Manifest.Config PathKey
, siteUrl : String
}
-> Pages.Program userModel userMsg metadata view
application config =
@ -160,6 +163,7 @@ application config =
, toJsPort = toJsPort
, head = config.head
, manifest = config.manifest
, siteUrl = config.siteUrl
}