[project @ 1996-04-10 18:10:47 by partain]

[ghc-hetmet.git] / ghc / compiler / main / Main.lhs

diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index 3507b79..918a24c 100644 (file)
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -335,7 +335,7 @@ doIt (core_cmds, stg_cmds) input_pgm
     doOutput switch io_action
       = case switch of
          Nothing -> returnMn ()
-         Just fn -> let fname = _UNPK_ fn in
+         Just fname ->
            fopen fname "a+"    `thenPrimIO` \ file ->
            if (file == ``NULL'') then
                error ("doOutput: failed to open:"++fname)