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