Skip to content
This repository was archived by the owner on Oct 7, 2020. It is now read-only.

Commit a5be92e

Browse files
committed
Add special case for ghc 8.2.2
1 parent 9507dc6 commit a5be92e

File tree

1 file changed

+8
-0
lines changed

1 file changed

+8
-0
lines changed

test/unit/GhcModPluginSpec.hs

+8
Original file line numberDiff line numberDiff line change
@@ -478,6 +478,10 @@ ghcmodSpec =
478478
, (Range (toPos (33, 15)) (toPos (33, 19)), "Test -> String")
479479
, (Range (toPos (33, 15)) (toPos (33, 19)), "[Test] -> ShowS")
480480
, (Range (toPos (33, 15)) (toPos (33, 19)), "Int -> Test -> ShowS")
481+
#if (defined(MIN_VERSION_GLASGOW_HASKELL) && (MIN_VERSION_GLASGOW_HASKELL(8,4,0,0)))
482+
#else
483+
, (Range (toPos (33, 15)) (toPos (33, 19)), "[Test] -> ShowS")
484+
#endif
481485
]
482486
testCommand testPlugins act "ghcmod" "type" arg res
483487

@@ -493,6 +497,10 @@ ghcmodSpec =
493497
, (Range (toPos (33, 21)) (toPos (33, 23)), "Test -> Test -> Bool")
494498
, (Range (toPos (33, 21)) (toPos (33, 23)), "Test -> Test -> Bool")
495499
, (Range (toPos (33, 21)) (toPos (33, 23)), "Test -> Test -> Bool")
500+
#if (defined(MIN_VERSION_GLASGOW_HASKELL) && (MIN_VERSION_GLASGOW_HASKELL(8,4,0,0)))
501+
#else
502+
, (Range (toPos (33, 21)) (toPos (33, 23)), "Test -> Test -> Bool")
503+
#endif
496504
]
497505
testCommand testPlugins act "ghcmod" "type" arg res
498506

0 commit comments

Comments
 (0)