fourmolu-0.13.0.0: data/examples/declaration/value/function/infix/esqueleto-1.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
             )