diff --git a/demo.hs b/demo.hs
new file mode 100644
--- /dev/null
+++ b/demo.hs
@@ -0,0 +1,77 @@
+{-# LANGUAGE QuasiQuotes, ScopedTypeVariables, FlexibleContexts, FlexibleInstances, MultiParamTypeClasses, UndecidableInstances #-}
+module Main where
+
+import Control.Monad.Trans(MonadIO(liftIO))
+import Data.Text (pack)
+import Happstack.Server
+import Happstack.Server.Hamlet
+import Text.Hamlet
+import Text.Hamlet.Monad (hamletToText, liftHamlet)
+
+-- | type used to populate the template
+data Person = Person
+    { name :: IO HtmlContent -- maybe it requires a database lookup
+    , age :: HtmlContent
+    , page :: PersonUrls
+    , isMarried :: Bool
+    , children :: [HtmlContent]
+    }
+
+-- | type which represents paths to different pages on the site
+data PersonUrls = Homepage | PersonPage String
+
+-- | function to turn the url type into a string
+renderUrls :: PersonUrls -> String
+renderUrls Homepage = "/"
+renderUrls (PersonPage name) = '/' : name
+
+-- | hamlet template which generates page footer
+footer :: Monad m => Hamlet url m ()
+footer = [$hamlet|
+#footer Thank you, come again
+|]
+
+
+-- | hamlet template which generates a page
+template :: Person -> Hamlet PersonUrls IO ()
+template person = [$hamlet|
+!!!
+%html
+    %head
+        %title Hamlet Demo
+    %body
+        %h1 Information on $*name.person$
+        %p $*name.person$ is $age.person$ years old.
+        %h2
+            $if isMarried.person
+                <b>Married</b>
+            $else
+                Not <b>married</b>
+        %ul
+            $forall children.person child
+                %li $child$
+        %p
+            %a!href=@page.person@ See the page.
+        ^footer^
+|]
+
+
+-- | some dummy content to use with the template
+person :: Person
+person = Person
+            { name = return $ Unencoded $ pack "Michael"
+            , age = Unencoded $ pack "twenty five & a half"
+            , page = PersonPage "michael"
+            , isMarried = True
+            , children = [ Unencoded $ pack "Adam"
+                         , Unencoded $ pack "Ben"
+                         , Unencoded $ pack "Chris"
+                         ]
+            }
+
+-- | example of using 'hamletToResponse' to turn the 'Hamlet' template
+-- into a 'ServerPartT IO Response'.
+--
+-- NOTE: we ignore the requested URL in this example for simplicity
+main :: IO ()
+main = simpleHTTP nullConf $ liftIO $ hamletToResponse renderUrls $ template person
diff --git a/happstack-hamlet.cabal b/happstack-hamlet.cabal
--- a/happstack-hamlet.cabal
+++ b/happstack-hamlet.cabal
@@ -1,5 +1,5 @@
 Name:                happstack-hamlet
-Version:             0.1
+Version:             0.2.1
 Synopsis:            Support for Hamlet HTML templates in Happstack
 
 Description:         Happstack is a web application development framework. 
@@ -15,6 +15,7 @@
 Category:            Web
 Build-type:          Simple
 Cabal-version:       >=1.6
+Extra-source-files:  demo.hs
 
 source-repository head
     type:     darcs
@@ -27,7 +28,7 @@
                        bytestring,
                        containers,
                        happstack-server >= 0.4.3 && <0.6 ,
-                       hamlet,
+                       hamlet >= 0.2 && <3,
                        text
   
   -- Modules not exported by this package.