Revert "Workaround for problem with file-embed."

This reverts commit 84ed0f055f.
This commit is contained in:
John MacFarlane 2012-12-30 15:50:37 -08:00
parent 84ed0f055f
commit 5e5859f126

View file

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