From: sof <unknown>
Date: Fri, 28 Dec 2001 00:14:33 +0000 (+0000)
Subject: [project @ 2001-12-28 00:14:33 by sof]
X-Git-Tag: Approximately_9120_patches~345
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c77e2dcf1dea7aa55ddaece3938a81020be1c32;p=ghc-hetmet.git

[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
--- 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