@@ -512,12 +512,10 @@ dataFiles = $(embedDir "data")
512512readDefaultDataFile :: FilePath -> IO B.ByteString
513513readDefaultDataFile fname =
514514#ifdef EMBED_DATA_FILES
515− case lookup (map backToForwardSlash fname) dataFiles of
515+ case lookup fname dataFiles of
516516 Nothing -> ioError $ userError
517517 $ "Data file `" ++ fname ++ "' does not exist"
518518 Just contents -> return contents
519− where backToForwardSlash '\\' = '/'
520− backToForwardSlash c = c
521519#else
522520 getDataFileName ("data" </> fname) >>= B.readFile
523521#endif