{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} module Ormolu.Printer.Meat.Declaration.Default ( p_defaultDecl, ) where import GHC.Hs import Ormolu.Printer.Combinators import Ormolu.Printer.Meat.Type p_defaultDecl :: DefaultDecl GhcPs -> R () p_defaultDecl :: DefaultDecl GhcPs -> R () p_defaultDecl (DefaultDecl XCDefaultDecl GhcPs _ [LHsType GhcPs] ts) = do Text -> R () txt Text "default" R () breakpoint R () -> R () inci forall b c a. (b -> c) -> (a -> b) -> a -> c . BracketStyle -> R () -> R () parens BracketStyle N forall a b. (a -> b) -> a -> b $ forall a. R () -> (a -> R ()) -> [a] -> R () sep R () commaDel (R () -> R () sitcc forall b c a. (b -> c) -> (a -> b) -> a -> c . forall l a. HasSrcSpan l => (a -> R ()) -> GenLocated l a -> R () located' HsType GhcPs -> R () p_hsType) [LHsType GhcPs] ts