Fix the __GLASGOW_HASKELL__ comparison
authorKrzysztof Gogolewski <krz.gogolewski@gmail.com>
Thu, 30 Aug 2018 13:34:39 +0000 (15:34 +0200)
committerKrzysztof Gogolewski <krz.gogolewski@gmail.com>
Thu, 30 Aug 2018 13:34:39 +0000 (15:34 +0200)
Summary:
GHC 8.4 corresponds to 804, not 840.

Found by Gabor Greif.

Test Plan: Harbormaster

Reviewers: ggreif, bgamari, mpickering

Reviewed By: ggreif

Subscribers: rwbarton, carter

Differential Revision: https://phabricator.haskell.org/D5064

compiler/iface/MkIface.hs
compiler/main/Plugins.hs

index 7469c4e..59a396e 100644 (file)
@@ -119,11 +119,10 @@ import Data.IORef
 import System.Directory
 import System.FilePath
 import Plugins ( PluginRecompile(..), Plugin(..), LoadedPlugin(..))
-#if __GLASGOW_HASKELL__ < 840
+
 --Qualified import so we can define a Semigroup instance
 -- but it doesn't clash with Outputable.<>
 import qualified Data.Semigroup
-#endif
 
 {-
 ************************************************************************
@@ -1113,7 +1112,7 @@ instance Semigroup RecompileRequired where
 
 instance Monoid RecompileRequired where
   mempty = UpToDate
-#if __GLASGOW_HASKELL__ < 840
+#if __GLASGOW_HASKELL__ < 804
   mappend = (Data.Semigroup.<>)
 #endif
 
index 8ead643..e83ec08 100644 (file)
@@ -23,11 +23,9 @@ import Fingerprint
 import Data.List
 import Outputable (Outputable(..), text, (<+>))
 
-#if __GLASGOW_HASKELL__ < 840
 --Qualified import so we can define a Semigroup instance
 -- but it doesn't clash with Outputable.<>
 import qualified Data.Semigroup
-#endif
 
 import Control.Monad
 
@@ -125,7 +123,7 @@ instance Semigroup PluginRecompile where
 
 instance Monoid PluginRecompile where
   mempty = NoForceRecompile
-#if __GLASGOW_HASKELL__ < 840
+#if __GLASGOW_HASKELL__ < 804
   mappend = (Data.Semigroup.<>)
 #endif