Set hlint code by ghc version

Author: jneira

test/functional/FunctionalCodeAction.hs

@@ -48,11 +48,15 @@ hlintTests = testGroup "hlint suggestions" [
         doc <- openDoc "ApplyRefact2.hs" "haskell"
         diags@(reduceDiag:_) <- waitForDiagnosticsSource "hlint"
 
+        let etaReduceCode = case ghcVersion of
+                                GHC810 -> "refact:Eta reduce"
+                                _      -> "Eta reduce"
+
         liftIO $ do
             length diags @?= 2 -- "Eta Reduce" and "Redundant Id"
             reduceDiag ^. L.range @?= Range (Position 1 0) (Position 1 12)
             reduceDiag ^. L.severity @?= Just DsInfo
-            reduceDiag ^. L.code @?= Just (StringValue "refact:Eta reduce")
+            reduceDiag ^. L.code @?= Just (StringValue etaReduceCode)
             reduceDiag ^. L.source @?= Just "hlint"
 
         cas <- map fromAction <$> getAllCodeActions doc