packages feed

aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/DoAndIfThenElse/do-and-if-then-else-else-do-multiline-inner-if.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE DoAndIfThenElse #-}

-- Test case: multiline inner 'if-then-else' as the first statement in an
-- 'else do' layout block. The outer else-do layout must not close on the
-- inner branch markers before the statement finishes.
module DoAndIfThenElseElseDoMultilineInnerIf where

fn =
  if False then
    return True
  else do
      if hidden /= 0 then
        return True
      else
        return False