diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Devel/UseIO.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/Devel/UseIO.hs b/src/GF/Devel/UseIO.hs index 3311edb8c..39b8447f7 100644 --- a/src/GF/Devel/UseIO.hs +++ b/src/GF/Devel/UseIO.hs @@ -104,8 +104,10 @@ getFilePathMsg msg paths file = get paths where get (p:ps) = do let pfile = p </> file exist <- doesFileExist pfile - if exist then return (Just pfile) else get ps ---- catch (readFileStrict pfile >> return (Just pfile)) (\_ -> get ps) + if not exist + then get ps + else do pfile <- canonicalizePath pfile + return (Just pfile) readFileIfPath :: [FilePath] -> String -> IOE (FilePath,BS.ByteString) readFileIfPath paths file = do |