testsuite/tests/simplCore/should_compile/simpl004.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{-# LANGUAGE UnboxedTuples, MagicHash, BangPatterns #-}

module ShouldCompile where

import Data.Ix
import GHC.Exts


f ixs@(_, ix_end) frozen# =
 let
  !n# =
   case (
	 if null (range ixs)
	  then 0
	  else 1
        ) of { I# x -> x }
 in
 (# frozen#, False #)