diff --git a/WaiAppStatic/Storage/Embedded/Runtime.hs b/WaiAppStatic/Storage/Embedded/Runtime.hs
--- a/WaiAppStatic/Storage/Embedded/Runtime.hs
+++ b/WaiAppStatic/Storage/Embedded/Runtime.hs
@@ -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
diff --git a/wai-app-static.cabal b/wai-app-static.cabal
--- a/wai-app-static.cabal
+++ b/wai-app-static.cabal
@@ -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>