{-# OPTIONS_GHC -fno-warn-orphans #-}
module TextShow.System.Random () where
import System.Random (StdGen)
import TextShow (TextShow(..), FromStringShow(..))
instance TextShow StdGen where
showbPrec :: Int -> StdGen -> Builder
showbPrec Int
p = Int -> FromStringShow StdGen -> Builder
forall a. TextShow a => Int -> a -> Builder
showbPrec Int
p (FromStringShow StdGen -> Builder)
-> (StdGen -> FromStringShow StdGen) -> StdGen -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StdGen -> FromStringShow StdGen
forall a. a -> FromStringShow a
FromStringShow
{-# INLINE showbPrec #-}