From aa2cc2f0eb6e37e1b03dacd404f83ead7ebeeb1b Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 13 Apr 2010 21:19:17 -0700
Subject: [PATCH] Added static example

---
 examples/static.hs | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 examples/static.hs

diff --git a/examples/static.hs b/examples/static.hs
new file mode 100644
index 00000000..7f8abb5a
--- /dev/null
+++ b/examples/static.hs
@@ -0,0 +1,24 @@
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE TypeFamilies #-}
+
+import Yesod
+import Yesod.Helpers.Static
+import Network.Wai.Handler.SimpleServer
+
+data StaticExample = StaticExample
+
+mkYesod "StaticExample" [$parseRoutes|
+/     Root    StaticRoutes siteStaticRoutes getStaticSite
+|]
+
+instance Yesod StaticExample where
+    approot _ = "http://localhost:3000"
+
+getStaticSite :: StaticExample -> Static
+getStaticSite _ = fileLookupDir "dist/doc/html/yesod"
+
+main :: IO ()
+main = do
+    putStrLn "Running..."
+    toWaiApp StaticExample >>= run 3000