@@ -1,7 +1,7 @@
1{-# OPTIONS_GHC -Wall #-}
1{-# OPTIONS_GHC -Wall #-}
2module Elm.Internal.Paths where
2module Elm.Internal.Paths where
4−import System.Directory (doesDirectoryExist)
4+import System.Directory (doesFileExist)
5import System.Environment (getEnv)
5import System.Environment (getEnv)
6import System.FilePath ((</>))
6import System.FilePath ((</>))
7import System.IO.Unsafe (unsafePerformIO)
7import System.IO.Unsafe (unsafePerformIO)
@@ -30,7 +30,7 @@ docs = unsafePerformIO $ getDataFile "docs.json"
30getDataFile :: FilePath -> IO FilePath
30getDataFile :: FilePath -> IO FilePath
31getDataFile name = do
31getDataFile name = do
32 path <- This.getDataFileName name
32 path <- This.getDataFileName name
33− exists <- doesDirectoryExist path
33+ exists <- doesFileExist path
35 then return path
35 then return path