[project @ 1999-07-06 16:45:31 by simonpj]

[ghc-hetmet.git] / ghc / lib / posix / PosixProcEnv.lhs

diff --git a/ghc/lib/posix/PosixProcEnv.lhs b/ghc/lib/posix/PosixProcEnv.lhs
index 7d33f0e..bd0394a 100644 (file)
--- 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