{-# LANGUAGE CPP #-} {-# LANGUAGE TemplateHaskell #-} {-# OPTIONS_GHC -fno-warn-orphans #-} {-| Module: TextShow.Data.Ratio Copyright: (C) 2014-2015 Ryan Scott License: BSD-style (see the file LICENSE) Maintainer: Ryan Scott Stability: Provisional Portability: GHC Monomorphic 'TextShow' function for 'Ratio' values. Due to use of the @DatatypeContexts@ extension, there is no @TextShow1 Complex@ instance on @base-4.3.0.0@. /Since: 2/ -} module TextShow.Data.Complex (showbComplexPrec) where import Data.Complex (Complex) import Data.Text.Lazy.Builder (Builder) import TextShow.Classes (TextShow(showbPrec)) import TextShow.Data.Floating () import TextShow.TH.Internal (makeShowbPrec) #if MIN_VERSION_base(4,4,0) import TextShow.TH.Internal (deriveTextShow1) #endif #include "inline.h" -- | Convert a 'Complex' value to a 'Builder' with the given precedence. -- -- Note that on @base-4.3.0.0@, this function must have a @('TextShow' a, -- 'RealFloat' a)@ constraint instead of just a @('TextShow' a)@ constraint. -- -- /Since: 2/ #if MIN_VERSION_base(4,4,0) showbComplexPrec :: TextShow a #else showbComplexPrec :: (RealFloat a, TextShow a) #endif => Int -> Complex a -> Builder showbComplexPrec = showbPrec {-# INLINE showbComplexPrec #-} instance #if MIN_VERSION_base(4,4,0) TextShow a #else (RealFloat a, TextShow a) #endif => TextShow (Complex a) where {-# SPECIALIZE instance TextShow (Complex Float) #-} {-# SPECIALIZE instance TextShow (Complex Double) #-} showbPrec = $(makeShowbPrec ''Complex) INLINE_INST_FUN(showbPrec) #if MIN_VERSION_base(4,4,0) $(deriveTextShow1 ''Complex) #endif