diff options
Diffstat (limited to 'compiler/simplCore/FloatIn.hs')
| -rw-r--r-- | compiler/simplCore/FloatIn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/FloatIn.hs b/compiler/simplCore/FloatIn.hs index 02a7f741c5..3e44e81cea 100644 --- a/compiler/simplCore/FloatIn.hs +++ b/compiler/simplCore/FloatIn.hs @@ -665,7 +665,7 @@ sepBindsByDropPoint dflags is_case drop_pts floaters = [] : [[] | _ <- drop_pts] | otherwise - = ASSERT( length drop_pts >= 2 ) + = ASSERT( drop_pts `lengthAtLeast` 2 ) go floaters (map (\fvs -> (fvs, [])) (emptyDVarSet : drop_pts)) where n_alts = length drop_pts |