diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:55:37 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:55:37 +0000 |
| commit | 52594e871df591bea1a94b793db8c0865a29e3ec (patch) | |
| tree | d33676515c472e92b1e96e0f9a13d5d771eec829 | |
| parent | e99ebbfdc58c95591d3c201965780ab3c64c7af2 (diff) | |
| download | sariulclocks-52594e871df591bea1a94b793db8c0865a29e3ec.tar.gz | |
put a space after buttons so they don't look squidged thanks to Text.XHtml
| -rw-r--r-- | src/Text/XHtml/Bootstrap.hs | 3 | ||||
| -rw-r--r-- | src/sariulclocks.hs | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/XHtml/Bootstrap.hs b/src/Text/XHtml/Bootstrap.hs index 88a132f..2cd7154 100644 --- a/src/Text/XHtml/Bootstrap.hs +++ b/src/Text/XHtml/Bootstrap.hs @@ -9,5 +9,4 @@ e # theClass = e ! [strAttr "class" theClass] e #= theClass = e ! [strAttr "id" theClass] bsButton :: HTML a => String -> String -> a -> Html -bsButton id theClass label = anchor # theClass #= id - << label +bsButton id theClass label = (anchor # theClass #= id << label) +++ " " diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 06858a9..24d9eca 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -132,6 +132,6 @@ cgiMain = do main = runCGI . handleErrors $ cgiMain templateInject :: String -> Html -> String -templateInject template body = templateBefore ++ (showHtmlFragment body) ++ templateAfter +templateInject template body = templateBefore ++ (renderHtmlFragment body) ++ templateAfter where (templateBefore:templateAfter:_) = splitOn "BODY_HERE" template |