{-# LANGUAGE Safe #-}

 -- |

 import GHC.Internal.Data.Data

 import Data.Typeable

 import GHC.Real (toRational)

 import GHC.Float (Double)

 import Data.Eq ((==))

     ffloat :: Double -> Constr

     ffloat =  mkPrimCon dt str . FloatConstr . toRational

 {-# LANGUAGE Safe #-}

 {-# LANGUAGE StandaloneDeriving #-}

 import GHC.Internal.Data.Version

 import Control.Applicative (pure, (*>))

 import Data.Functor (fmap)

 import Data.Char (isDigit, isAlphaNum)

 parseVersion = do branch <- sepBy1 (fmap read (munch1 isDigit)) (char '.')

                   tags   <- many (char '-' *> munch1 isAlphaNum)

                   pure (Version branch tags)

 {-# LANGUAGE Safe #-}

 {-# LANGUAGE StandaloneDeriving #-}

 import GHC.Internal.ByteOrder

 import Text.Read

 {-NOTE:

 -- | @since base-4.11.0.0

 deriving instance Read ByteOrder

 {-# LANGUAGE Trustworthy #-}

 {-# LANGUAGE MagicHash #-}

 {-# LANGUAGE ImportQualifiedPost #-}

 import GHC.Internal.Numeric

 import GHC.Types (Char (C#))

 import GHC.Err (error, errorWithoutStackTrace)

 import GHC.Base (unsafeChr)

 -- | Show /non-negative/ 'Integral' numbers in base 2.

 showBin :: Integral a => a -> ShowS

 showBin = showIntAtBase 2  intToDigit

 -- > input^D

 -- output

 {-NOTE:

     The following instances are technically orphans, but practically they are

     not, since ordinary users should not use @ghc-internal@ directly and thus

 -- | @since base-4.3.0.0

 deriving instance Read NewlineMode