Jack/rcv-site
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

small style changes

Browse source
This commit is contained in:
Jack Wines 2023-06-15 13:29:07 -07:00
parent eed32d77d3
commit 747f2d071c
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
View file

@ -112,7 +112,7 @@ server = createPage
:<|> getPollForBallot
:<|> vote
:<|> results
:<|> serveDirectoryWith ((defaultWebAppSettings "public"))
:<|> serveDirectoryWith (defaultWebAppSettings "public")
getPollForBallot :: P.PollId -> AppM (L.Html ())
getPollForBallot pollId = do
@ -134,6 +134,8 @@ getPollForBallot pollId = do
toFormInput :: T.Text -> L.Html ()
toFormInput option = with div_ [classes_ []] $ input_ [type_ "hidden", value_ option, name_ "options"] <> toHtml option
fullPage :: L.Html () -> AppM (L.Html ())
fullPage rest = do
customHead <- pageHead
pure $ doctypehtml_ $ do