fourmolu-0.2.0.0: data/examples/declaration/value/function/pattern/splice-pattern-four-out.hs

{-# LANGUAGE TemplateHaskell #-}

singleLine = case () of
    $x -> ()
    $(y "something") -> ()

multiline = case () of
    $( x
        + y
     ) -> ()
    $( y
        "something"
     ) -> ()