From a5aa36d7a86ccfea758fdeec39127d552f322285 Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Fri, 8 Nov 2013 15:48:18 +0100 Subject: `M-x untabify` & `M-x delete-trailing-whitespace` ...on recently touched files Signed-off-by: Herbert Valerio Riedel --- System/Posix/Terminal.hsc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'System/Posix/Terminal.hsc') 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 -- cgit v1.2.3