case-cons-continuation.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE LambdaCase #-}

module CaseConsContinuation where

data E = A | B | C

f :: E -> String
f x =
  case x of
    A -> "a"
    B -> "b"
    C -> "c"
  : "tail"