@@ -641,16 +641,14 @@ staticAppPieces ss pieces req = liftIO $ do
641 [ ("Content-Type", "text/plain")
641 [ ("Content-Type", "text/plain")
642 ] "File not found"
642 ] "File not found"
645−The problem is that the System.Directory functions are a lie: they
644+-- | System.Directory functions are a lie:
646−claim to be using String, but it's really just a raw byte sequence.
645+-- they claim to be using String, but it's really just a raw byte sequence.
647−We're assuming that non-Windows systems use UTF-8 encoding (there was
646+-- We're assuming that non-Windows systems use UTF-8 encoding (there was
648−a discussion regarding this, it wasn't an arbitrary decision). So we
647+-- a discussion regarding this, it wasn't an arbitrary decision). So we
649−need to encode/decode the byte sequence to/from UTF8. That's the use
648+-- need to encode/decode the byte sequence to/from UTF8. That's the use
650−case for fixPathName/unfixPathName. I'm starting to use John
649+-- case for fixPathName/unfixPathName. I'm starting to use John
651−Millikin's system-filepath package for some stuff with work, and might
650+-- Millikin's system-filepath package for some stuff with work, and might
652−consider migrating over to it for this in the future.
651+-- consider migrating over to it for this in the future.
654toFilePath :: Prelude.FilePath -> FilePath
652toFilePath :: Prelude.FilePath -> FilePath
655#if defined(mingw32_HOST_OS)
653#if defined(mingw32_HOST_OS)
656toFilePath = FilePath . T.pack
654toFilePath = FilePath . T.pack