{-# 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