haskell-tools-builtin-refactorings-1.0.1.1: test/ExtensionOrganizerTest/ParallelListCompTest/InCaseRhs.hs

{-# LANGUAGE ParallelListComp #-}

module InCaseRhs where

f x = case x of
        [] -> [ (x,y) | x <- [1..10] | y <- [1..10] ]    {-* ParallelListComp *-}
        xs -> [ (x,y) | x <- [1..10] | y <- [1..10] ]    {-* ParallelListComp *-}