before\x -> case x of ...
after\case ...
foldr :: (Maybe (a, b) -> b) -> [a] -> b
hssum = foldr $ \xx -> case xx of
Just (cur, acc) -> cur + acc
Nothing -> 0
hs{-# LANGUAGE LambdaCase #-}
sum = foldr $ \case
Just (cur, acc) -> cur + acc
Nothing -> 0
purs(hs)sum = foldr case _ of
Just (Tuple cur acc) -> cur + acc
Nothing -> 0