@@ -1,6 +1,8 @@
11{-# OPTIONS_GHC -Wall #-}
22module Stuff
33 ( details
4+ , interfaces
5+ , objects
46 , prepublishDir
57 , elmi
68 , elmo
@@ -9,7 +11,7 @@ module Stuff
911 , PackageCache
1012 , getPackageCache
1113 , registry
12− , metadata
14+ , package
1315 , getReplCache
1416 )
1517 where
@@ -36,7 +38,17 @@ stuff =
3638
3739details :: FilePath
3840details =
39− stuff </> "details.dat"
41+ stuff </> "d.dat"
42+
43+
44+interfaces :: FilePath
45+interfaces =
46+ stuff </> "i.dat"
47+
48+
49+objects :: FilePath
50+objects =
51+ stuff </> "o.dat"
4052
4153
4254prepublishDir :: FilePath
@@ -117,9 +129,9 @@ registry (PackageCache dir) =
117129 dir </> "registry.dat"
118130
119131
120−metadata :: PackageCache -> Pkg.Name -> V.Version -> String -> FilePath
121−metadata (PackageCache dir) name version path =
122− dir </> Pkg.toFilePath name </> V.toChars version </> path
132+package :: PackageCache -> Pkg.Name -> V.Version -> FilePath
133+package (PackageCache dir) name version =
134+ dir </> Pkg.toFilePath name </> V.toChars version
123135
124136
125137