Describe the bug
To Reproduce
Putting the following into ormolu-live.tweag.io:
import qualified Database.Persist.Esqueleto as E
foo =
E.from $
E.table
`E.innerJoin` E.table
`E.on` ( \(a :& b) ->
a E.^. AField E.==. b E.^. BField
)gets formatted as
import qualified Database.Persist.Esqueleto as E
foo =
E.from
$ E.table
`E.innerJoin` E.table
`E.on` ( \(a :& b) ->
a E.^. AField E.==. b E.^. BField
)Expected behavior
It should be
import qualified Database.Persist.Esqueleto as E
foo =
E.from
$ E.table
`E.innerJoin` E.table
- `E.on` ( \(a :& b) ->
- a E.^. AField E.==. b E.^. BField
- )
+ `E.on` ( \(a :& b) ->
+ a E.^. AField E.==. b E.^. BField
+ )Environment
- OS name + version:
- Version of the code:
Additional context
Add any other context about the problem here.
Describe the bug
To Reproduce
Putting the following into
ormolu-live.tweag.io:gets formatted as
Expected behavior
It should be
import qualified Database.Persist.Esqueleto as E foo = E.from $ E.table `E.innerJoin` E.table - `E.on` ( \(a :& b) -> - a E.^. AField E.==. b E.^. BField - ) + `E.on` ( \(a :& b) -> + a E.^. AField E.==. b E.^. BField + )Environment
Additional context
Add any other context about the problem here.