manpage: more consistent

Author: robx

cabal-install/src/Distribution/Client/Manpage.hs

@@ -82,13 +82,13 @@ manpageCmd pname commands flags
         -- 'less' is borked with color sequences otherwise
         let pagerArgs = if takeFileName pager == "less" then ["-R"] else []
         -- Pipe output of @nroff@ into @less@
-        (exitcode, _) <- rawSystemProcAction verbosity
-            (proc pager pagerArgs) { Process.std_in    = Process.CreatePipe }
+        (ec2, _) <- rawSystemProcAction verbosity
+            (proc pager pagerArgs) { Process.std_in = Process.CreatePipe }
               $ \mIn _ _ -> do
           let wIn = fromCreatePipe mIn
           hPutStr wIn formatted
           hClose  wIn
-        exitWith exitcode
+        exitWith ec2
   where
     contents :: String
     contents = manpage pname commands