diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2013-11-08 15:48:18 +0100 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-11-08 15:48:18 +0100 |
commit | a5aa36d7a86ccfea758fdeec39127d552f322285 (patch) | |
tree | 068fce21dd39f5f620fc751885e0d322d22f18aa /System/Posix/Terminal.hsc | |
parent | a6bc389df2b25cbf9340f54b123a08831350d3f0 (diff) |
`M-x untabify` & `M-x delete-trailing-whitespace`
...on recently touched files
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
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 |