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

{-# LANGUAGE ViewPatterns #-}

module InMatchLhsNested where

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

        h (j, j -> [])  = ()  {-* ViewPatterns *-}