@@ -512,12 +512,10 @@ dataFiles = $(embedDir "data")
512readDefaultDataFile :: FilePath -> IO B.ByteString
512readDefaultDataFile :: FilePath -> IO B.ByteString
513readDefaultDataFile fname =
513readDefaultDataFile fname =
514#ifdef EMBED_DATA_FILES
514#ifdef EMBED_DATA_FILES
515− case lookup (map backToForwardSlash fname) dataFiles of
515+ case lookup fname dataFiles of
516 Nothing -> ioError $ userError
516 Nothing -> ioError $ userError
517 $ "Data file `" ++ fname ++ "' does not exist"
517 $ "Data file `" ++ fname ++ "' does not exist"
518 Just contents -> return contents
518 Just contents -> return contents
519− where backToForwardSlash '\\' = '/'
520− backToForwardSlash c = c
522 getDataFileName ("data" </> fname) >>= B.readFile
520 getDataFileName ("data" </> fname) >>= B.readFile