Skip to content

Commit fff2c5e

Browse files
committed
Use #elif compilation directive
1 parent 7ddac39 commit fff2c5e

File tree

1 file changed

+1
-3
lines changed
  • plugins/hls-refactor-plugin/src/Development/IDE/Plugin

1 file changed

+1
-3
lines changed

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

+1-3
Original file line numberDiff line numberDiff line change
@@ -842,8 +842,7 @@ suggestAddTypeAnnotationToSatisfyConstraints sourceOpt Diagnostic{_range=_range,
842842
, ".*arising from the literal ‘(.+)’"
843843
, if at then ".+at ([^ ]*)" else ""
844844
]
845-
#else
846-
#if MIN_VERSION_ghc(9,4,0)
845+
#elif MIN_VERSION_ghc(9,4,0)
847846
pat multiple at inArg inExpr = T.concat [ ".*Defaulting the type variable "
848847
, ".*to type ‘([^ ]+)’ "
849848
, "in the following constraint"
@@ -864,7 +863,6 @@ suggestAddTypeAnnotationToSatisfyConstraints sourceOpt Diagnostic{_range=_range,
864863
, if inExpr then ".+In the expression" else ""
865864
, ".+In the expression"
866865
]
867-
#endif
868866
#endif
869867
codeEdit range ty lit replacement =
870868
let title = "Add type annotation ‘" <> ty <> "’ to ‘" <> lit <> ""

0 commit comments

Comments
 (0)