diff options
-rw-r--r-- | src/sariulclocks.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 5338bb6..f2d2a5e 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -70,11 +70,18 @@ clocks = do clockColumn :: Html -> Html clockColumn = thediv ! [strAttr "class" "col-md-6"] +theDate :: Html +theDate = thediv # "row" + << thediv # "col-md-12" + << (hr + +++ (h1 ! [ strAttr "id" "date" + , strAttr "class" "text-center"] + << noHtml) +++ hr) + makePage :: Page Html makePage = do theNavBar <- navBar theClocks <- clocks - let theDate = paragraph << "date here" theRankings <- rankings return (theNavBar +++ theClocks +++ theDate +++ theRankings) |