[project @ 1998-08-24 19:22:47 by sof]

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

diff --git a/ghc/lib/posix/PosixTTY.lhs b/ghc/lib/posix/PosixTTY.lhs
index 36bee8d..80c9eb1 100644 (file)
--- a/ghc/lib/posix/PosixTTY.lhs
+++ b/ghc/lib/posix/PosixTTY.lhs
@@ -46,8 +46,12 @@ import Foreign
 
 import PosixUtil
 import PosixErr
+import CString  ( freeze, allocChars )
 
-type TerminalAttributes = ByteArray ()
+\end{code}
+
+\begin{code}
+type TerminalAttributes = ByteArray Int
 
 data TerminalMode = InterruptOnBreak
                   | MapCRtoLF