{-# 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 (R () -> R ()) -> (R () -> R ()) -> R () -> R () forall b c a. (b -> c) -> (a -> b) -> a -> c . BracketStyle -> R () -> R () parens BracketStyle N (R () -> R ()) -> R () -> R () forall a b. (a -> b) -> a -> b $ R () -> (GenLocated SrcSpanAnnA (HsType GhcPs) -> R ()) -> [GenLocated SrcSpanAnnA (HsType GhcPs)] -> R () forall a. R () -> (a -> R ()) -> [a] -> R () sep R () commaDel (R () -> R () sitcc (R () -> R ()) -> (GenLocated SrcSpanAnnA (HsType GhcPs) -> R ()) -> GenLocated SrcSpanAnnA (HsType GhcPs) -> R () forall b c a. (b -> c) -> (a -> b) -> a -> c . (HsType GhcPs -> R ()) -> GenLocated SrcSpanAnnA (HsType GhcPs) -> R () forall l a. HasSrcSpan l => (a -> R ()) -> GenLocated l a -> R () located' HsType GhcPs -> R () p_hsType) [LHsType GhcPs] [GenLocated SrcSpanAnnA (HsType GhcPs)] ts