diff options
Diffstat (limited to 'compiler/simplCore/SimplCore.hs')
| -rw-r--r-- | compiler/simplCore/SimplCore.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs index 1d55c17d36..b8fb162432 100644 --- a/compiler/simplCore/SimplCore.hs +++ b/compiler/simplCore/SimplCore.hs @@ -743,7 +743,9 @@ simplifyPgmIO pass@(CoreDoSimplify max_iterations mode) -- Loop do_iteration us2 (iteration_no + 1) (counts1:counts_so_far) binds2 rules1 } } +#if __GLASGOW_HASKELL__ <= 810 | otherwise = panic "do_iteration" +#endif where (us1, us2) = splitUniqSupply us |