Data.Universe.Some.TH

Documentation

class DeriveUniverseSome a where

Derive the UniverseSome n instance.

>>> :set -XGADTs -XTemplateHaskell -XStandaloneDeriving
>>> import Data.Universe.Class (universe)
>>> import Data.GADT.Show

>>> data Tag b a where IntTag :: Tag b Int; BoolTag :: b -> Tag b Bool
>>> deriving instance Show b => Show (Tag b a)
>>> instance Show b => GShow (Tag b) where gshowsPrec = showsPrec

(data Unused is to workaround bug in older GHCi) >>> data Unused; $(deriveUniverseSome ''Tag)

>>> universe :: [Some (Tag (Maybe Bool))]
[Some IntTag,Some (BoolTag Nothing),Some (BoolTag (Just False)),Some (BoolTag (Just True))]

deriveUniverseSome variant taking a Name guesses simple class constraints. If you need more specific, you can specify them: (Note: on older GHCs this will warn, as the instance definition doesn't have all methods defined).

>>> data Tag b a where IntTag :: Tag b Int; BoolTag :: b -> Tag b Bool
>>> deriving instance Show b => Show (Tag b a)
>>> instance Show b => GShow (Tag b) where gshowsPrec = showsPrec
>>> data Unused; $(deriveUniverseSome [d| instance Universe b => UniverseSome (Tag b) |])
...
>>> universe :: [Some (Tag (Maybe Bool))]
[Some IntTag,Some (BoolTag Nothing),Some (BoolTag (Just False)),Some (BoolTag (Just True))]

Methods

deriveUniverseSome :: a -> DecsQ

Instances

DeriveUniverseSome Dec

Defined in Data.Universe.Some.TH

Methods

deriveUniverseSome :: Dec -> DecsQ

DeriveUniverseSome Name

Defined in Data.Universe.Some.TH

Methods

deriveUniverseSome :: Name -> DecsQ

DeriveUniverseSome a => DeriveUniverseSome [a]

Defined in Data.Universe.Some.TH

Methods

deriveUniverseSome :: [a] -> DecsQ

DeriveUniverseSome a => DeriveUniverseSome (Q a)

Defined in Data.Universe.Some.TH

Methods

deriveUniverseSome :: Q a -> DecsQ

universeSomeQ :: Name -> ExpQ

Derive the method for :: [Some tag]

>>> :set -XGADTs -XTemplateHaskell -XStandaloneDeriving
>>> import Data.GADT.Show

>>> data Tag b a where IntTag :: Tag b Int; BoolTag :: b -> Tag b Bool
>>> deriving instance Show b => Show (Tag b a)
>>> instance Show b => GShow (Tag b) where gshowsPrec = showsPrec

>>> $(universeSomeQ ''Tag) :: [Some (Tag Bool)]
[Some IntTag,Some (BoolTag False),Some (BoolTag True)]