Fix warnings
This commit is contained in:
parent
b6edb5b7a5
commit
2cb746af74
3 changed files with 29 additions and 4 deletions
2
hl.cabal
2
hl.cabal
|
@ -13,7 +13,7 @@ cabal-version: >=1.8
|
||||||
|
|
||||||
executable hl
|
executable hl
|
||||||
hs-source-dirs: src/
|
hs-source-dirs: src/
|
||||||
ghc-options: -Wall -O2
|
ghc-options: -Wall -O2 -fno-warn-unused-do-bind
|
||||||
main-is: Main.hs
|
main-is: Main.hs
|
||||||
build-depends: blaze-html,
|
build-depends: blaze-html,
|
||||||
monad-extras,
|
monad-extras,
|
||||||
|
|
23
src/HL/V.hs
23
src/HL/V.hs
|
@ -19,15 +19,38 @@ import Yesod.Senza as V
|
||||||
-- Latest Bootstrap requires extra work to get the old grid layout
|
-- Latest Bootstrap requires extra work to get the old grid layout
|
||||||
-- behaviour of spans. I'll probably move this into senza.
|
-- behaviour of spans. I'll probably move this into senza.
|
||||||
|
|
||||||
|
span1 :: [Attribute] -> Senza -> Senza
|
||||||
span1 xs = div ([class_ "span1 col-md-1"] ++ xs)
|
span1 xs = div ([class_ "span1 col-md-1"] ++ xs)
|
||||||
|
|
||||||
|
span2 :: [Attribute] -> Senza -> Senza
|
||||||
span2 xs = div ([class_ "span2 col-md-2"] ++ xs)
|
span2 xs = div ([class_ "span2 col-md-2"] ++ xs)
|
||||||
|
|
||||||
|
span3 :: [Attribute] -> Senza -> Senza
|
||||||
span3 xs = div ([class_ "span3 col-md-3"] ++ xs)
|
span3 xs = div ([class_ "span3 col-md-3"] ++ xs)
|
||||||
|
|
||||||
|
span4 :: [Attribute] -> Senza -> Senza
|
||||||
span4 xs = div ([class_ "span4 col-md-4"] ++ xs)
|
span4 xs = div ([class_ "span4 col-md-4"] ++ xs)
|
||||||
|
|
||||||
|
span5 :: [Attribute] -> Senza -> Senza
|
||||||
span5 xs = div ([class_ "span5 col-md-5"] ++ xs)
|
span5 xs = div ([class_ "span5 col-md-5"] ++ xs)
|
||||||
|
|
||||||
|
span6 :: [Attribute] -> Senza -> Senza
|
||||||
span6 xs = div ([class_ "span6 col-md-6"] ++ xs)
|
span6 xs = div ([class_ "span6 col-md-6"] ++ xs)
|
||||||
|
|
||||||
|
span7 :: [Attribute] -> Senza -> Senza
|
||||||
span7 xs = div ([class_ "span7 col-md-7"] ++ xs)
|
span7 xs = div ([class_ "span7 col-md-7"] ++ xs)
|
||||||
|
|
||||||
span8 xs = div ([class_ "span8 col-md-8"] ++ xs)
|
span8 xs = div ([class_ "span8 col-md-8"] ++ xs)
|
||||||
|
span8 :: [Attribute] -> Senza -> Senza
|
||||||
|
|
||||||
span9 xs = div ([class_ "span9 col-md-9"] ++ xs)
|
span9 xs = div ([class_ "span9 col-md-9"] ++ xs)
|
||||||
|
span9 :: [Attribute] -> Senza -> Senza
|
||||||
|
|
||||||
span10 xs = div ([class_ "span10 col-md-10"] ++ xs)
|
span10 xs = div ([class_ "span10 col-md-10"] ++ xs)
|
||||||
|
span10 :: [Attribute] -> Senza -> Senza
|
||||||
|
|
||||||
span11 xs = div ([class_ "span11 col-md-11"] ++ xs)
|
span11 xs = div ([class_ "span11 col-md-11"] ++ xs)
|
||||||
|
span11 :: [Attribute] -> Senza -> Senza
|
||||||
|
|
||||||
span12 xs = div ([class_ "span12 col-md-12"] ++ xs)
|
span12 xs = div ([class_ "span12 col-md-12"] ++ xs)
|
||||||
|
span12 :: [Attribute] -> Senza -> Senza
|
||||||
|
|
|
@ -21,7 +21,7 @@ template
|
||||||
template crumbs ptitle inner =
|
template crumbs ptitle inner =
|
||||||
skeleton
|
skeleton
|
||||||
ptitle
|
ptitle
|
||||||
(\cur url -> return ())
|
(\_ _ -> return ())
|
||||||
(\cur url ->
|
(\cur url ->
|
||||||
div [class_ "template"]
|
div [class_ "template"]
|
||||||
(do navigation True cur url
|
(do navigation True cur url
|
||||||
|
@ -206,6 +206,8 @@ footer r =
|
||||||
Nothing ->
|
Nothing ->
|
||||||
a [href "http://www.haskell.org/haskellwiki/"]
|
a [href "http://www.haskell.org/haskellwiki/"]
|
||||||
"Go to haskell.org wiki"
|
"Go to haskell.org wiki"
|
||||||
Just page ->
|
Just pn ->
|
||||||
a [href (toValue ("http://www.haskell.org/haskellwiki/index.php?title=" <> page <> "&action=edit"))]
|
a [href (toValue ("http://www.haskell.org/haskellwiki/index.php?title=" <>
|
||||||
|
pn <>
|
||||||
|
"&action=edit"))]
|
||||||
"Edit this page"
|
"Edit this page"
|
||||||
|
|
Loading…
Reference in a new issue