Alex Jones 69 #YOLO

{-# language CPP #-}
#define extend(x) {-# language x #-}

extend(LambdaCase)

foo :: Bool -> Int
foo = \case
    True -> -1
    False -> 0

main = do
    let x = foo True
    print x