Revert "Workaround for problem with file-embed."
This reverts commit 84ed0f055f
.
This commit is contained in:
parent
84ed0f055f
commit
5e5859f126
1 changed files with 1 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue