Fix silly error that shows up when installing through cabal
This commit is contained in:
parent
4b80c13875
commit
f116375ad2
1 changed files with 2 additions and 2 deletions
|
@ -1,7 +1,7 @@
|
|||
{-# OPTIONS_GHC -Wall #-}
|
||||
module Elm.Internal.Paths where
|
||||
|
||||
import System.Directory (doesDirectoryExist)
|
||||
import System.Directory (doesFileExist)
|
||||
import System.Environment (getEnv)
|
||||
import System.FilePath ((</>))
|
||||
import System.IO.Unsafe (unsafePerformIO)
|
||||
|
@ -30,7 +30,7 @@ docs = unsafePerformIO $ getDataFile "docs.json"
|
|||
getDataFile :: FilePath -> IO FilePath
|
||||
getDataFile name = do
|
||||
path <- This.getDataFileName name
|
||||
exists <- doesDirectoryExist path
|
||||
exists <- doesFileExist path
|
||||
if exists
|
||||
then return path
|
||||
else do
|
||||
|
|
Loading…
Reference in a new issue