@@ -19,6 +19,7 @@ import qualified Data.Map as Map
19import qualified Data.Name as Name
19import qualified Data.Name as Name
20import qualified Data.Set as Set
20import qualified Data.Set as Set
21import qualified Data.Utf8 as Utf8
21import qualified Data.Utf8 as Utf8
22+import System.FilePath ((</>))
23import qualified Deps.Website as Website
24import qualified Deps.Website as Website
24import qualified Elm.Compiler.Type as Type
25import qualified Elm.Compiler.Type as Type
@@ -356,7 +357,7 @@ changeMagnitude (Changes added changed removed) =
357getDocs :: Stuff.PackageCache -> Http.Manager -> Pkg.Name -> V.Version -> IO (Either Exit.DocsProblem Docs.Documentation)
358getDocs :: Stuff.PackageCache -> Http.Manager -> Pkg.Name -> V.Version -> IO (Either Exit.DocsProblem Docs.Documentation)
358getDocs cache manager name version =
359getDocs cache manager name version =
359− do let path = Stuff.metadata cache name version "docs.json"
360+ do let path = Stuff.package cache name version </> "docs.json"
360 exists <- File.exists path
361 exists <- File.exists path
361 if exists
362 if exists