ghc/tests/simplCore/should_compile/simpl004.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 module ShouldCompile where
   4
   5 import Ix
   6 import GlaExts
   7
   8
   9 f ixs@(_, ix_end) frozen# =
  10  let
  11   n# =
  12    case (
  13          if null (range ixs)
  14           then 0
  15           else 1
  16         ) of { I# x -> x }
  17  in
  18  (# frozen#, False #)