From 9c77e2dcf1dea7aa55ddaece3938a81020be1c32 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 28 Dec 2001 00:14:33 +0000
Subject: [PATCH] [project @ 2001-12-28 00:14:33 by sof]
 debugging-by-nightly-build-reports; give poke_c_flag a
 correct FI decl

---
 ghc/lib/std/PrelPosix.hsc |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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