remove more dead code
This commit is contained in:
parent
e9057b0e84
commit
0734115264
|
@ -1,19 +0,0 @@
|
|||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
module Within.DBMemorial.Views.Example where
|
||||
|
||||
import Control.Monad (forM_)
|
||||
import Text.Blaze.Html
|
||||
import Text.Blaze.Html5 as H
|
||||
import Text.Blaze.Html5.Attributes as A
|
||||
|
||||
numbers :: Int -> Html
|
||||
numbers n = docTypeHtml $ do
|
||||
H.head $ do
|
||||
H.title "Natural numbers"
|
||||
body $ do
|
||||
p "A list of natural numbers:"
|
||||
ul $ forM_ [1 .. n] (li . toHtml)
|
||||
|
||||
simpleImage :: Html
|
||||
simpleImage = img ! src "foo.png"
|
Loading…
Reference in New Issue