From 2d93157e9ab2790f76b29661d359b4ca059b1637 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 14 Mar 2013 19:02:30 +0200
Subject: [PATCH] Fixed Yesod.Static

---
 yesod-static/Yesod/Static.hs | 6 +++---
 yesod-static/sample.hs       | 1 -
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/yesod-static/Yesod/Static.hs b/yesod-static/Yesod/Static.hs
index 4b40b35a..85c2b650 100644
--- a/yesod-static/Yesod/Static.hs
+++ b/yesod-static/Yesod/Static.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
 ---------------------------------------------------------
 --
 -- | Serve static files from a Yesod app.
@@ -69,7 +70,6 @@ import qualified Data.Serialize
 import Data.Text (Text, pack)
 import qualified Data.Map as M
 import Data.IORef (readIORef, newIORef, writeIORef)
-import Network.Wai (pathInfo)
 import Data.Char (isLower, isDigit)
 import Data.List (foldl')
 import qualified Data.ByteString as S
@@ -144,10 +144,10 @@ instance RenderRoute Static where
     renderRoute (StaticRoute x y) = (x, y)
 
 instance YesodSubDispatch Static m where
-    yesodSubDispatch _run getSub _toMaster env req =
+    yesodSubDispatch YesodSubRunnerEnv {..} req =
         staticApp set req
       where
-        Static set = getSub $ yreSite env
+        Static set = ysreGetSub $ yreSite $ ysreParentEnv
 
 notHidden :: Prelude.FilePath -> Bool
 notHidden "tmp" = False
diff --git a/yesod-static/sample.hs b/yesod-static/sample.hs
index 8b3df38e..0c903115 100644
--- a/yesod-static/sample.hs
+++ b/yesod-static/sample.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE QuasiQuotes, TypeFamilies, MultiParamTypeClasses #-}
 {-# LANGUAGE TemplateHaskell #-}
 import Yesod.Static
-import Yesod.Dispatch
 import Yesod.Core
 import Network.Wai.Handler.Warp (run)
 import Network.Wai.Application.Static