Remove obsolete CPP

Author: hvr

src/System/IO/HVIO.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP  #-}
 {-# LANGUAGE Safe #-}
 
 {- arch-tag: HVIO main file
@@ -358,9 +357,7 @@ class (Show a) => HVIO a where
 instance HVIO Handle where
     vClose = hClose
     vIsEOF = hIsEOF
-#ifdef __GLASGOW_HASKELL__
     vShow = hShow
-#endif
     vMkIOError h et desc mfp =
         mkIOError et desc (Just h) mfp
     vGetChar = hGetChar

src/System/Path.hs

@@ -111,16 +111,12 @@ mktmpdir x =
        createDirectory dirname 0o700
        return dirname
 #else
-#ifdef __GLASGOW_HASKELL__
 mktmpdir x =
     do (fp, h) <- openTempFile "" x
        hClose h
        removeFile fp
        createDirectory fp
        return fp
-#else
-mktmpdir _ = fail "mktmpdir not supported on Windows unless you have GHC"
-#endif
 #endif
 
 {- | Creates a temporary directory for your use via 'mktmpdir',