freesect-0.7: S26.hs

  {- # LANGUAGE FreeSections #-}  -- with GHC's -F you cannot...

  -- Testing guarded RHS's which are finally supported.

  module S26 where

  v x | x == 1     = g _[ a __ b ]_ __ c
      | x == 2     = g _[ a __ b ]_ __ c
--    | _[ __ == 2 ]_ 3  = g _[ a __ b ]_ __ c  -- error "not RHS context" or so
      | otherwise  = g _[ a __ b ]_ __ c