X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fposix%2FPosixProcEnv.lhs;h=bd0394adf29c8b2bd56f30b0a52ec1455355b42d;hb=9d38678ea60ff32f756390a30c659daa22c98c93;hp=7d33f0ea84978bba7d6cd100be5440c85ab15188;hpb=47a40c89ca2e588b62d986a58907e178bce1de4f;p=ghc-hetmet.git

diff --git a/ghc/lib/posix/PosixProcEnv.lhs b/ghc/lib/posix/PosixProcEnv.lhs
index 7d33f0e..bd0394a 100644
--- a/ghc/lib/posix/PosixProcEnv.lhs
+++ b/ghc/lib/posix/PosixProcEnv.lhs
@@ -245,10 +245,10 @@ getTerminalName fd = do
     if str == nullAddr
        then do
         err <- try (queryTerminal fd)
-        either (\err -> syserr "getTerminalName")
-               (\succ -> if succ then ioError (IOError Nothing NoSuchThing
+        either (\ _err -> syserr "getTerminalName")
+               (\ succ -> if succ then ioError (IOError Nothing NoSuchThing
 						"getTerminalName" "no name")
-                         else ioError (IOError Nothing InappropriateType
+                          else ioError (IOError Nothing InappropriateType
 						"getTerminalName" "not a terminal"))
            err
        else strcpy str