@@ -78,7 +78,7 @@ import Control.Exception
7878 , Exception, SomeException
7979 , fromException, AsyncException (ThreadKilled)
8080 , try
81−#if GLASGOW_HASKELL >= 721
81+#if __GLASGOW_HASKELL__ >= 702
8282 , allowInterrupt
8383#else
8484 , unblock
@@ -136,7 +136,7 @@ import qualified Paths_warp
136136warpVersion :: String
137137warpVersion = showVersion Paths_warp.version
138138
139−#if GLASGOW_HASKELL < 721
139+#if __GLASGOW_HASKELL__ < 702
140140allowInterrupt :: IO ()
141141allowInterrupt = unblock $ return ()
142142#endif