{-# 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 forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Show a => a -> String
show