@@ -854,7 +854,6 @@ readDefaultDataFile fname =
855 getDataFileName fname' >>= checkExistence >>= BS.readFile
855 getDataFileName fname' >>= checkExistence >>= BS.readFile
856 where fname' = if fname == "README" then fname else "data" </> fname
856 where fname' = if fname == "README" then fname else "data" </> fname
859checkExistence :: FilePath -> IO FilePath
858checkExistence :: FilePath -> IO FilePath
860checkExistence fn = do
859checkExistence fn = do
@@ -862,6 +861,7 @@ checkExistence fn = do
862 if exists
861 if exists
863 then return fn
862 then return fn
864 else err 97 ("Could not find data file " ++ fn)
863 else err 97 ("Could not find data file " ++ fn)
866-- | Read file from specified user data directory or, if not found there, from
866-- | Read file from specified user data directory or, if not found there, from
867-- Cabal data directory.
867-- Cabal data directory.