Fixes for stylish-haskell

stylish-haskell does not handle CPP pragmas very well, is this a
regression?

Author: dylan-thinnes

ghcide/test/exe/FuzzySearch.hs

@@ -87,7 +87,7 @@ referenceImplementation ::
   (t -> s) ->
   -- | The original value, rendered string and score.
   Maybe (Fuzzy t s)
-referenceImplementation pattern t pre post extract =
+referenceImplementation pat t pre post extract =
   if null pat then Just (Fuzzy t result totalScore) else Nothing
   where
     null :: (T.TextualMonoid s) => s -> Bool
@@ -118,7 +118,7 @@ referenceImplementation pattern t pre post extract =
         ( 0,
           1, -- matching at the start gives a bonus (cur = 1)
           mempty,
-          pattern,
+          pat,
           True
         )
         s

plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction.hs

@@ -65,10 +65,10 @@ import           Development.IDE.Plugin.Plugins.FillHole           (suggestFillH
 import           Development.IDE.Plugin.Plugins.FillTypeWildcard   (suggestFillTypeWildcard)
 import           Development.IDE.Plugin.Plugins.ImportUtils
 import           Development.IDE.Plugin.TypeLenses                 (suggestSignature)
+import           Development.IDE.Types.Diagnostics
 import           Development.IDE.Types.Exports
 import           Development.IDE.Types.Location
 import           Development.IDE.Types.Options
-import           Development.IDE.Types.Diagnostics
 import           GHC                                               (AddEpAnn (AddEpAnn),
                                                                     AnnsModule (am_main),
                                                                     DeltaPos (..),
@@ -2008,6 +2008,7 @@ smallerRangesForBindingExport lies b =
       | T.unpack (printOutputable thing) == b' = []
       | otherwise =
           [ locA l' | L l' x <- inners, T.unpack (printOutputable x) == b']
+#endif
     ranges' _ = []
 
 rangesForBinding' :: String -> LIE GhcPs -> [SrcSpan]