@@ -1,7 +1,7 @@
11{-# OPTIONS_GHC -Wall #-}
22module Elm.Internal.Paths where
33
4−import System.Directory (doesDirectoryExist)
4+import System.Directory (doesFileExist)
55import System.Environment (getEnv)
66import System.FilePath ((</>))
77import System.IO.Unsafe (unsafePerformIO)
@@ -30,7 +30,7 @@ docs = unsafePerformIO $ getDataFile "docs.json"
3030getDataFile :: FilePath -> IO FilePath
3131getDataFile name = do
3232 path <- This.getDataFileName name
33− exists <- doesDirectoryExist path
33+ exists <- doesFileExist path
3434 if exists
3535 then return path
3636 else do