Skip to content

Commit d4f69e2

Browse files
committed
fix some warnings in hlint plugin
1 parent 0a0c5ed commit d4f69e2

File tree

1 file changed

+4
-1
lines changed
  • plugins/hls-hlint-plugin/src/Ide/Plugin

1 file changed

+4
-1
lines changed

plugins/hls-hlint-plugin/src/Ide/Plugin/Hlint.hs

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -134,8 +134,11 @@ import Development.IDE.Spans.Pragmas (LineSplitTe
134134
lineSplitTextEdits,
135135
nextPragmaLine)
136136
import GHC.Generics (Generic)
137+
#if MIN_VERSION_apply_refact(0,12,0)
138+
#else
137139
import System.Environment (setEnv,
138140
unsetEnv)
141+
#endif
139142
import Text.Regex.TDFA.Text ()
140143
-- ---------------------------------------------------------------------
141144

@@ -383,7 +386,7 @@ getHlintConfig pId =
383386
<$> usePropertyAction #flags pId properties
384387

385388
runHlintAction
386-
:: (Eq k, Hashable k, Show k, Show (RuleResult k), Typeable k, Typeable (RuleResult k), NFData k, NFData (RuleResult k))
389+
:: (Hashable k, Show k, Show (RuleResult k), Typeable k, Typeable (RuleResult k), NFData k, NFData (RuleResult k))
387390
=> IdeState
388391
-> NormalizedFilePath -> String -> k -> IO (Maybe (RuleResult k))
389392
runHlintAction ideState normalizedFilePath desc rule = runAction desc ideState $ use rule normalizedFilePath

0 commit comments

Comments
 (0)