Better local variable name

commercialhaskell · Sep 19, 2015 · c675201 · c675201
1 parent daf004f
commit c675201
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Stack/GhcPkg.hs b/src/Stack/GhcPkg.hs
@@ -154,8 +154,8 @@ findGhcPkgVersion :: (MonadIO m, MonadLogger m, MonadBaseControl IO m, MonadCatc
                   -> PackageName
                   -> m (Maybe Version)
 findGhcPkgVersion menv wc pkgDbs name = do
-    mpid <- findGhcPkgField menv wc pkgDbs (packageNameString name) "version"
-    case mpid of
+    mv <- findGhcPkgField menv wc pkgDbs (packageNameString name) "version"
+    case mv of
         Just !v -> return (parseVersion (T.encodeUtf8 v))
         _ -> return Nothing