{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} module Ormolu.Printer.Meat.Declaration.Default ( p_defaultDecl, ) where import GHC.Hs.Decls import GHC.Hs.Extension import Ormolu.Printer.Combinators import Ormolu.Printer.Meat.Type p_defaultDecl :: DefaultDecl GhcPs -> R () p_defaultDecl :: DefaultDecl GhcPs -> R () p_defaultDecl (DefaultDecl XCDefaultDecl GhcPs NoExtField [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 () -> (LHsType GhcPs -> R ()) -> [LHsType GhcPs] -> R () forall a. R () -> (a -> R ()) -> [a] -> R () sep R () commaDel (R () -> R () sitcc (R () -> R ()) -> (LHsType GhcPs -> R ()) -> LHsType GhcPs -> R () forall b c a. (b -> c) -> (a -> b) -> a -> c . (HsType GhcPs -> R ()) -> LHsType GhcPs -> R () forall a. (a -> R ()) -> Located a -> R () located' HsType GhcPs -> R () p_hsType) [LHsType GhcPs] ts