haskell-tools-builtin-refactorings-1.0.1.1: test/ExtensionOrganizerTest/MultiWayIfTest/InRhsGuard.hs

{-# LANGUAGE MultiWayIf #-}

module InRhsGuard where

f x
  | y1 <- if | True -> 0 | False -> 1,   {-* MultiWayIf *-}
    y2 <- if | True -> 0 | False -> 1    {-* MultiWayIf *-}
  = ()
  | z1 <- if | True -> 0 | False -> 1    {-* MultiWayIf *-}
  = ()