From 07341152643702a9add2dde0d2cc55715ee15013 Mon Sep 17 00:00:00 2001 From: Christine Dodrill Date: Tue, 28 Jul 2015 16:05:18 -0700 Subject: [PATCH] remove more dead code --- web/src/Within/DBMemorial/Views/Example.hs | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 web/src/Within/DBMemorial/Views/Example.hs 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"