ormolu-0.1.1.0: data/examples/declaration/value/function/list-notation-3.hs

foo =
  reportSDoc "tc.cc" 30 $ sep $ do
    (prettyTCM q <+> " before compilation") : do
      map (prettyTCM . map unArg . clPats) cls

foo =
  reportSDoc "tc.cc" 30 $ sep $ do
    (prettyTCM q <+> " before compilation") :
      do
        map (prettyTCM . map unArg . clPats) cls