yesod-static 1.1.0.1 → 1.1.1

raw patch · 7 files changed

+7/−12 lines, 7 filesdep −HUnit

Dependencies removed: HUnit

Files

• Yesod/Static.hs +1/−6
• test/YesodStaticTest.hs +1/−4
• test/fs/.ignored +0/−0
• test/fs/bar/baz +0/−0
• test/fs/foo +0/−0
• test/fs/tmp/ignored +0/−0
• yesod-static.cabal +5/−2

@@ -68,11 +68,10 @@ import Data.Text (Text, pack) import qualified Data.Map as M import Data.IORef (readIORef, newIORef, writeIORef)-import Network.Wai (pathInfo, rawPathInfo, responseLBS)+import Network.Wai (pathInfo) import Data.Char (isLower, isDigit) import Data.List (foldl') import qualified Data.ByteString as S-import Network.HTTP.Types (status301) import System.PosixCompat.Files (getFileStatus, modificationTime) import System.Posix.Types (EpochTime) import Data.Conduit (($$))@@ -144,10 +143,6 @@     renderRoute (StaticRoute x y) = (x, y)  instance Yesod master => YesodDispatch Static master where-    -- Need to append trailing slash to make relative links work-    yesodDispatch _ _ _ _ _ _ _ [] _ req =-        return $ responseLBS status301 [("Location", rawPathInfo req `S.append` "/")] ""-     yesodDispatch _ _ (Static set) _ _ _ _ textPieces  _ req =         staticApp set req { pathInfo = textPieces } 

@@ -1,8 +1,6 @@ module YesodStaticTest (specs) where  import Test.Hspec-import Test.HUnit ( (@?=) )-import Test.Hspec.HUnit ( )  import Yesod.Static (getFileListPieces) @@ -10,5 +8,4 @@ specs = do     describe "get file list" $ do       it "pieces" $ do-        x <- getFileListPieces "test/fs"-        x @?= [["foo"], ["bar", "baz"]]+        getFileListPieces "test/fs" `shouldReturn` [["foo"], ["bar", "baz"]]

@@ -1,5 +1,5 @@ name:            yesod-static-version:         1.1.0.1+version:         1.1.1 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>@@ -14,6 +14,10 @@ extra-source-files:   test/YesodStaticTest.hs   test/tests.hs+  test/fs/bar/baz+  test/fs/tmp/ignored+  test/fs/.ignored+  test/fs/foo  library     build-depends:   base                  >= 4        && < 5@@ -46,7 +50,6 @@     cpp-options:   -DTEST_EXPORT     build-depends:   base                    , hspec >= 1.3   && < 1.4-                   , HUnit                    -- copy from above                    , containers                    , old-time