Commit 36b95bff authored by Ian Lynagh's avatar Ian Lynagh
Browse files

__GLASGOW_HASKELL__ >= 609 is now always true

parent 40ecf8e6
......@@ -30,11 +30,7 @@ import Prelude
#include "../../includes/ghcconfig.h"
import System.Console.GetOpt
#if __GLASGOW_HASKELL__ >= 609
import qualified Control.Exception as Exception
#else
import qualified Control.Exception.Extensible as Exception
#endif
import Data.Maybe
import Data.Char ( isSpace, toLower )
......@@ -1670,11 +1666,7 @@ openNewFile dir template = do
-- as any exceptions etc will only be able to report the
-- fd currently
h <-
#if __GLASGOW_HASKELL__ >= 609
fdToHandle fd
#else
fdToHandle (fromIntegral fd)
#endif
`Exception.onException` c_close fd
return (filepath, h)
where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment