module Text.Show.Text.Data.Tuple (
showbUnit
, showb2Tuple
, showb3Tuple
, showb4Tuple
, showb5Tuple
, showb6Tuple
, showb7Tuple
, showb8Tuple
, showb9Tuple
, showb10Tuple
, showb11Tuple
, showb12Tuple
, showb13Tuple
, showb14Tuple
, showb15Tuple
) where
import Data.Text.Lazy.Builder (Builder)
import Prelude hiding (Show)
import Text.Show.Text.Class (Show(showb))
import Text.Show.Text.Utils ((<>), s)
showbUnit :: () -> Builder
showbUnit () = "()"
showb2Tuple :: (Show a, Show b) => (a, b) -> Builder
showb2Tuple (a, b) =
s '(' <> showb a <>
s ',' <> showb b <>
s ')'
showb3Tuple :: (Show a, Show b, Show c) => (a, b, c) -> Builder
showb3Tuple (a, b, c) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ')'
showb4Tuple :: (Show a, Show b, Show c, Show d) => (a, b, c, d) -> Builder
showb4Tuple (a, b, c, d) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ')'
showb5Tuple :: (Show a, Show b, Show c, Show d, Show e) => (a, b, c, d, e) -> Builder
showb5Tuple (a, b, c, d, e) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ')'
showb6Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f) => (a, b, c, d, e, f) -> Builder
showb6Tuple (a, b, c, d, e, f) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ')'
showb7Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f, Show g)
=> (a, b, c, d, e, f, g) -> Builder
showb7Tuple (a, b, c, d, e, f, g) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ')'
showb8Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h)
=> (a, b, c, d, e, f, g, h) -> Builder
showb8Tuple (a, b, c, d, e, f, g, h) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ',' <> showb h <>
s ')'
showb9Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i)
=> (a, b, c, d, e, f, g, h, i) -> Builder
showb9Tuple (a, b, c, d, e, f, g, h, i) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ',' <> showb h <>
s ',' <> showb i <>
s ')'
showb10Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j)
=> (a, b, c, d, e, f, g, h, i, j) -> Builder
showb10Tuple (a, b, c, d, e, f, g, h, i, j) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ',' <> showb h <>
s ',' <> showb i <>
s ',' <> showb j <>
s ')'
showb11Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f,
Show g, Show h, Show i, Show j, Show k)
=> (a, b, c, d, e, f, g, h, i, j, k) -> Builder
showb11Tuple (a, b, c, d, e, f, g, h, i, j, k) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ',' <> showb h <>
s ',' <> showb i <>
s ',' <> showb j <>
s ',' <> showb k <>
s ')'
showb12Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f,
Show g, Show h, Show i, Show j, Show k, Show l)
=> (a, b, c, d, e, f, g, h, i, j, k, l) -> Builder
showb12Tuple (a, b, c, d, e, f, g, h, i, j, k, l) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ',' <> showb h <>
s ',' <> showb i <>
s ',' <> showb j <>
s ',' <> showb k <>
s ',' <> showb l <>
s ')'
showb13Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f, Show g,
Show h, Show i, Show j, Show k, Show l, Show m)
=> (a, b, c, d, e, f, g, h, i, j, k, l, m) -> Builder
showb13Tuple (a, b, c, d, e, f, g, h, i, j, k, l, m) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ',' <> showb h <>
s ',' <> showb i <>
s ',' <> showb j <>
s ',' <> showb k <>
s ',' <> showb l <>
s ',' <> showb m <>
s ')'
showb14Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f, Show g,
Show h, Show i, Show j, Show k, Show l, Show m, Show n)
=> (a, b, c, d, e, f, g, h, i, j, k, l, m, n) -> Builder
showb14Tuple (a, b, c, d, e, f, g, h, i, j, k, l, m, n) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ',' <> showb h <>
s ',' <> showb i <>
s ',' <> showb j <>
s ',' <> showb k <>
s ',' <> showb l <>
s ',' <> showb m <>
s ',' <> showb n <>
s ')'
showb15Tuple :: (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h,
Show i, Show j, Show k, Show l, Show m, Show n, Show o)
=> (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) -> Builder
showb15Tuple (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) =
s '(' <> showb a <>
s ',' <> showb b <>
s ',' <> showb c <>
s ',' <> showb d <>
s ',' <> showb e <>
s ',' <> showb f <>
s ',' <> showb g <>
s ',' <> showb h <>
s ',' <> showb i <>
s ',' <> showb j <>
s ',' <> showb k <>
s ',' <> showb l <>
s ',' <> showb m <>
s ',' <> showb n <>
s ',' <> showb o <>
s ')'
instance Show () where
showb = showbUnit
instance (Show a, Show b) => Show (a, b) where
showb = showb2Tuple
instance (Show a, Show b, Show c) => Show (a, b, c) where
showb = showb3Tuple
instance (Show a, Show b, Show c, Show d) => Show (a, b, c, d) where
showb = showb4Tuple
instance (Show a, Show b, Show c, Show d, Show e) => Show (a, b, c, d, e) where
showb = showb5Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f) => Show (a, b, c, d, e, f) where
showb = showb6Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g) =>
Show (a, b, c, d, e, f, g) where
showb = showb7Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h) =>
Show (a, b, c, d, e, f, g, h) where
showb = showb8Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i) =>
Show (a, b, c, d, e, f, g, h, i) where
showb = showb9Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j) =>
Show (a, b, c, d, e, f, g, h, i, j) where
showb = showb10Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f,
Show g, Show h, Show i, Show j, Show k) =>
Show (a, b, c, d, e, f, g, h, i, j, k) where
showb = showb11Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f,
Show g, Show h, Show i, Show j, Show k, Show l) =>
Show (a, b, c, d, e, f, g, h, i, j, k, l) where
showb = showb12Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g,
Show h, Show i, Show j, Show k, Show l, Show m) =>
Show (a, b, c, d, e, f, g, h, i, j, k, l, m) where
showb = showb13Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g,
Show h, Show i, Show j, Show k, Show l, Show m, Show n) =>
Show (a, b, c, d, e, f, g, h, i, j, k, l, m, n) where
showb = showb14Tuple
instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h,
Show i, Show j, Show k, Show l, Show m, Show n, Show o) =>
Show (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) where
showb = showb15Tuple