diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:12:20 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:12:27 +0000 |
commit | 1a0f4cdf2abab14be4fd92b5f9227fa2b9dbaf2d (patch) | |
tree | 102cfb293eb57563c504e4ac653190578f9606f2 | |
parent | 4096c22e1c9339a146f930cc99a7256bdfd2e43d (diff) | |
download | sariulclocks-1a0f4cdf2abab14be4fd92b5f9227fa2b9dbaf2d.tar.gz |
add theDate
Will let JavaScript handle it for now
-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) |