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