diff --git a/web/src/Within/DBMemorial/Views/Example.hs b/web/src/Within/DBMemorial/Views/Example.hs deleted file mode 100644 index 006ad60..0000000 --- a/web/src/Within/DBMemorial/Views/Example.hs +++ /dev/null @@ -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"