diff options
Diffstat (limited to 'compiler/typecheck/TcMType.hs')
| -rw-r--r-- | compiler/typecheck/TcMType.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcMType.hs b/compiler/typecheck/TcMType.hs index 6b517eb8d6..1ae90661a8 100644 --- a/compiler/typecheck/TcMType.hs +++ b/compiler/typecheck/TcMType.hs @@ -263,7 +263,7 @@ newCoercionHole fillCoercionHole :: CoercionHole -> Coercion -> TcM () fillCoercionHole (CoercionHole u ref) co = do { -#ifdef DEBUG +#if defined(DEBUG) ; cts <- readTcRef ref ; whenIsJust cts $ \old_co -> pprPanic "Filling a filled coercion hole" (ppr u $$ ppr co $$ ppr old_co) |