diff options
Diffstat (limited to 'System/Posix/Terminal.hsc')
| -rw-r--r-- | System/Posix/Terminal.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Terminal.hsc b/System/Posix/Terminal.hsc index a7ede2b..be2d040 100644 --- a/System/Posix/Terminal.hsc +++ b/System/Posix/Terminal.hsc @@ -6,7 +6,7 @@ -- Module : System.Posix.Terminal -- Copyright : (c) The University of Glasgow 2002 -- License : BSD-style (see the file libraries/base/LICENSE) --- +-- -- Maintainer : libraries@haskell.org -- Stability : provisional -- Portability : non-portable (requires POSIX) @@ -88,7 +88,7 @@ import System.Posix.Internals (peekFilePath) getTerminalName :: Fd -> IO FilePath getTerminalName (Fd fd) = do s <- throwErrnoIfNull "getTerminalName" (c_ttyname fd) - peekFilePath s + peekFilePath s foreign import ccall unsafe "ttyname" c_ttyname :: CInt -> IO CString |