@@ -276,14 +276,24 @@ suggestionsTests =
276276 , " g = 2"
277277 , " #endif" , " "
278278 ]
279- expectedComments = [ " -- comment before header"
280- , " module Comments where" , " "
281- , " {-# standalone annotation #-}" , " "
282- , " -- standalone comment" , " "
283- , " -- | haddock comment"
284- , " f = {- inline comment -} {- inline comment inside refactored code -}1 -- ending comment" , " "
285- , " -- final comment"
286- ]
279+ expectedComments = case ghcVersion of
280+ GHC912 -> [ " -- comment before header"
281+ , " module Comments where" , " "
282+ , " {-# standalone annotation #-}" , " "
283+ , " -- standalone comment" , " "
284+ , " -- | haddock comment"
285+ , " f = {- inline comment -}{- inline comment inside refactored code -} 1 -- ending comment" , " "
286+ , " -- final comment"
287+ ]
288+
289+ _ -> [ " -- comment before header"
290+ , " module Comments where" , " "
291+ , " {-# standalone annotation #-}" , " "
292+ , " -- standalone comment" , " "
293+ , " -- | haddock comment"
294+ , " f = {- inline comment -} {- inline comment inside refactored code -}1 -- ending comment" , " "
295+ , " -- final comment"
296+ ]
287297 expectedComments2 = [ " module TwoHintsAndComment where"
288298 , " biggest = foldr1 max -- the line above will show two hlint hints, \" eta reduce\" and \" use maximum\" "
289299 ]
0 commit comments