wai-app-static 2.0.0.1 → 2.0.0.2

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• WaiAppStatic/Storage/Embedded/Runtime.hs +2/−2
• wai-app-static.cabal +1/−1

@@ -19,7 +19,7 @@ import Crypto.Hash.CryptoAPI (hash', MD5) import qualified Data.ByteString.Base64 as B64 import WaiAppStatic.Storage.Filesystem (defaultFileServerSettings)-import System.FilePath (pathSeparator)+import System.FilePath (isPathSeparator)  -- | Serve the list of path/content pairs directly from memory. embeddedSettings :: [(Prelude.FilePath, ByteString)] -> StaticSettings@@ -68,7 +68,7 @@         --         -- We want to separate on the forward slash on *all* OSes, and on         -- Windows, also separate on a backslash.-        let (y, z) = break (\c -> c == '/' || c == pathSeparator) x+        let (y, z) = break isPathSeparator x          in unsafeToPiece (T.pack y) : toPieces' (drop 1 z)      go :: [(Pieces, ByteString)] -> Embedded

@@ -1,5 +1,5 @@ name:            wai-app-static-version:         2.0.0.1+version:         2.0.0.2 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>