Compatibility with GHC 8.2.1

core/GhcMod/DynFlags.hs

@@ -1,4 +1,6 @@
 {-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StandaloneDeriving #-}
+{-# LANGUAGE CPP #-}
 
 module GhcMod.DynFlags where
 
@@ -14,6 +16,12 @@ import GhcMod.DynFlagsTH
 import System.IO.Unsafe (unsafePerformIO)
 import Prelude
 
+-- For orphans
+#if __GLASGOW_HASKELL__ == 802
+import Util (OverridingBool(..))
+import PprColour
+#endif
+
 setEmptyLogger :: DynFlags -> DynFlags
 setEmptyLogger df =
     Gap.setLogAction df $ \_ _ _ _ _ _ -> return ()
@@ -102,6 +110,12 @@ deferErrors df = return $
 
 ----------------------------------------------------------------
 
+#if __GLASGOW_HASKELL__ == 802
+deriving instance Eq OverridingBool
+deriving instance Eq PprColour.Scheme
+deriving instance Eq PprColour.PprColour
+#endif
+
 deriveEqDynFlags [d|
   eqDynFlags :: DynFlags -> DynFlags -> [[(Bool, String)]]
   eqDynFlags = undefined