haskell-tools-builtin-refactorings-1.0.0.0: test/ExtensionOrganizerTest/ViewPatternsTest/InAlt.hs

{-# LANGUAGE ViewPatterns #-}

module InAlt where

f g x = case x of
          (g -> [])   -> () {-* ViewPatterns *-}
          (g -> x:xs) -> () {-* ViewPatterns *-}