fourmolu-0.0.6.0: data/examples/declaration/value/function/do/operator-and-parens.hs

scientifically :: (Scientific -> a) -> Parser a
scientifically h = do
  something
  ( I.satisfy (\w -> w == 'e' || w == 'E')
      *> fmap (h . Sci.scientific signedCoeff . (e +)) (signed decimal)
    )
    <|> return (h $ Sci.scientific signedCoeff e)