Rename binding to packageEntry

commercialhaskell · Apr 23, 2019 · 4767c4e · 4767c4e
1 parent 0d920ae
commit 4767c4e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/subs/pantry/src/Pantry/Storage.hs b/subs/pantry/src/Pantry/Storage.hs
@@ -731,7 +731,7 @@ loadPackageById rpli tid = do
                 "loadPackageByid: invalid foreign key " ++ show (treeVersion ts)
             Just (Version (P.VersionP version)) -> pure version
     let ident = P.PackageIdentifier name version
-    (pantry, mtree) <-
+    (packageEntry, mtree) <-
         case treeCabal ts of
             Just keyBlob -> do
                 cabalKey <- getBlobKey keyBlob
@@ -759,7 +759,7 @@ loadPackageById rpli tid = do
         Package
             { packageTreeKey = P.TreeKey blobKey
             , packageTree = mtree
-            , packageCabalEntry = pantry
+            , packageCabalEntry = packageEntry
             , packageIdent = ident
             }