[project @ 2001-12-28 00:14:33 by sof]

debugging-by-nightly-build-reports; give poke_c_flag a correct FI decl

diff --git a/ghc/lib/std/PrelPosix.hsc b/ghc/lib/std/PrelPosix.hsc
index 9ee525b..a6848a3 100644 (file)
--- a/ghc/lib/std/PrelPosix.hsc
+++ b/ghc/lib/std/PrelPosix.hsc
@@ -195,7 +195,7 @@ tcSetAttr fd options p_tios = do
      c_sigprocmask prel_sig_setmask p_old_sigset nullPtr
 
 foreign import ccall "prel_lflag" c_lflag :: Ptr Termios -> IO CTcflag
-foreign import ccall "prel_poke_lflag" c_lflag :: Ptr Termios -> CTcflag -> IO ()
+foreign import ccall "prel_poke_lflag" poke_c_lflag :: Ptr Termios -> CTcflag -> IO ()
 foreign import ccall "prel_ptr_c_cc" ptr_c_cc  :: Ptr Termios -> IO Word8
 
 foreign import ccall "prel_echo"      unsafe prel_echo :: CInt