Use less modern APIs to support more GHC versions
This commit is contained in:
parent
4dfb3fce9c
commit
bbe5155e63
|
@ -438,7 +438,7 @@ ioInterface options files = do
|
||||||
return [home, xdg]
|
return [home, xdg]
|
||||||
|
|
||||||
readConfig file = do
|
readConfig file = do
|
||||||
exists <- doesPathExist file
|
exists <- doesFileExist file
|
||||||
if exists
|
if exists
|
||||||
then do
|
then do
|
||||||
(contents, _) <- inputFile file `catch` handler file
|
(contents, _) <- inputFile file `catch` handler file
|
||||||
|
|
Loading…
Reference in New Issue