remove more dead code

This commit is contained in:
Christine Dodrill 2015-07-28 16:05:18 -07:00
parent e9057b0e84
commit 0734115264
1 changed files with 0 additions and 19 deletions

View File

@ -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"