- -- Rotate expressions to the left, so that the expression related to the default case is the last
- let alts' = case alts of
- ((CoreSyn.DEFAULT,_,_):_) -> ((tail alts) ++ [head alts])
- otherwise -> alts
-
+ -- Rotate expressions to the leftso that the expression related to the default case is the last
+ let alts' = (tail alts) ++ [head alts]