From e12ccd7203ac3f0133365a9d3d802195e534fd8e Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Fri, 30 Nov 2012 22:45:55 +0000
Subject: Bump base lower version to 4.5 (the version GHC 7.4.1 came with)

and remove code to support older versions
---
 System/Posix/Terminal.hsc | 21 +--------------------
 1 file changed, 1 insertion(+), 20 deletions(-)

(limited to 'System/Posix/Terminal.hsc')

diff --git a/System/Posix/Terminal.hsc b/System/Posix/Terminal.hsc
index b00c6d6..b5519c6 100644
--- a/System/Posix/Terminal.hsc
+++ b/System/Posix/Terminal.hsc
@@ -1,6 +1,6 @@
 {-# LANGUAGE ForeignFunctionInterface #-}
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
-#if __GLASGOW_HASKELL__ >= 701
+#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
@@ -79,26 +79,7 @@ import System.Posix.Terminal.Common
 import System.Posix.Types
 import System.Posix.IO
 
-#if __GLASGOW_HASKELL__ > 700
 import System.Posix.Internals (withFilePath, peekFilePath)
-#elif __GLASGOW_HASKELL__ > 611
-import System.Posix.Internals (withFilePath)
-
-peekFilePath :: CString -> IO FilePath
-peekFilePath = peekCString
-
-peekFilePathLen :: CStringLen -> IO FilePath
-peekFilePathLen = peekCStringLen
-#else
-withFilePath :: FilePath -> (CString -> IO a) -> IO a
-withFilePath = withCString
-
-peekFilePath :: CString -> IO FilePath
-peekFilePath = peekCString
-
-peekFilePathLen :: CStringLen -> IO FilePath
-peekFilePathLen = peekCStringLen
-#endif
 
 -- | @getTerminalName fd@ calls @ttyname@ to obtain a name associated
 --   with the terminal for @Fd@ @fd@. If @fd@ is associated
-- 
cgit v1.2.3