packages feed

aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Layout/guard-let-layout-where-case.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskellQuotes #-}
module GuardLetLayoutWhereCase where

a | let
  []
    | 'J' =
      case 'm'# of
        "" -> ""
    where { (-257) ♛⸵ (x, _) = () }
  [a||] = let {  } in 0
  = ' []