From c675201b0142ef83f0c191a68573574ff5ecb4ac Mon Sep 17 00:00:00 2001 From: Michael Sloan Date: Sat, 19 Sep 2015 00:04:20 -0700 Subject: [PATCH] Better local variable name --- src/Stack/GhcPkg.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Stack/GhcPkg.hs b/src/Stack/GhcPkg.hs index e203fab354..8f8b2c9147 100644 --- 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