{-# OPTIONS_GHC -fno-warn-orphans #-} module OpenSuse.Prelude.PrettyPrinting.Orphans ( ) where import Numeric.Natural import Text.PrettyPrint.HughesPJClass instance Pretty Natural where pPrint :: Natural -> Doc pPrint = String -> Doc text (String -> Doc) -> (Natural -> String) -> Natural -> Doc forall b c a. (b -> c) -> (a -> b) -> a -> c . Natural -> String forall a. Show a => a -> String show