testsuite/tests/parser/should_compile/ParserLambdaCase.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE LambdaCase #-}

module ParserLambdaCase where

f1 = \case "1" -> 1
f2 = \ {- comment1 {- comment2 -} -} case "1" -> 1; "2" -> 2
f3 = \ -- comment
       case "1" -> 1
            "2" -> 2
f4 = \casex -> casex
f5 = \ case { "1" -> 1; "2" -> 2 }