fourmolu-0.13.0.0: data/examples/declaration/value/function/infix/esqueleto-1-four-out.hs

import qualified Database.Esqueleto.Experimental as E

foo =
    E.from $
        E.table
            `E.innerJoin` E.table
                `E.on` ( \(a :& b) ->
                            a E.^. AField E.==. b E.^. BField
                       )