haskell-tools-builtin-refactorings-1.0.0.0: test/ExtensionOrganizerTest/TupleSectionsTest/InCaseRhs.hs

{-# LANGUAGE TupleSections #-}

module InCaseRhs where

f x = case x of
        [] -> (0,)   {-* TupleSections *-}
        xs -> (0,)   {-* TupleSections *-}