Copyright | (c) Stef Joosten Christian Maeder DFKI GmbH 2010 |
---|---|
License | GPLv2 or higher, see LICENSE.txt |
Maintainer | Christian.Maeder@dfki.de |
Stability | provisional |
Portability | portable |
Safe Haskell | Safe |
Synopsis
- data Concept
- data RelType = RelType {}
- data Relation = Sgn {}
- bRels :: [String]
- isBRel :: String -> Bool
- data UnOp
- data MulOp
- data Rule
- data Prop
- showUp :: Show a => a -> String
- allProps :: [Prop]
- data RangedProp = RangedProp {}
- rProp :: Prop -> RangedProp
- data Object = Object {}
- data KeyAtt = KeyAtt (Maybe Token) Rule
- data KeyDef = KeyDef {}
- data RuleKind
- showRuleKind :: RuleKind -> String
- data RuleHeader
- data Pair = Pair Token Token
- data Plugin
- data PatElem
- data Context = Context (Maybe Token) [PatElem]
- comparePatElem :: PatElem -> PatElem -> Ordering
- mkContext :: Maybe Token -> [PatElem] -> Context
Documentation
Instances
Eq Concept Source # | |
Data Concept Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Concept -> c Concept gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Concept dataTypeOf :: Concept -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Concept) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Concept) gmapT :: (forall b. Data b => b -> b) -> Concept -> Concept gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Concept -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Concept -> r gmapQ :: (forall d. Data d => d -> u) -> Concept -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Concept -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Concept -> m Concept gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Concept -> m Concept gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Concept -> m Concept | |
Ord Concept Source # | |
Show Concept Source # | |
Generic Concept | |
GetRange Concept Source # | |
FromJSON Concept | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser Concept parseJSONList :: Value -> Parser [Concept] | |
ToJSON Concept | |
Defined in Adl.ATC_Adl toEncoding :: Concept -> Encoding toJSONList :: [Concept] -> Value toEncodingList :: [Concept] -> Encoding | |
ShATermConvertible Concept | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> Concept -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [Concept] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, Concept) fromShATermList' :: Int -> ATermTable -> (ATermTable, [Concept]) | |
Pretty Concept Source # | |
type Rep Concept | |
Defined in Adl.ATC_Adl |
Instances
Eq RelType Source # | |
Data RelType Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> RelType -> c RelType gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c RelType dataTypeOf :: RelType -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c RelType) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c RelType) gmapT :: (forall b. Data b => b -> b) -> RelType -> RelType gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> RelType -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> RelType -> r gmapQ :: (forall d. Data d => d -> u) -> RelType -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> RelType -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> RelType -> m RelType gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> RelType -> m RelType gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> RelType -> m RelType | |
Ord RelType Source # | |
Show RelType Source # | |
Generic RelType | |
GetRange RelType Source # | |
FromJSON RelType | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser RelType parseJSONList :: Value -> Parser [RelType] | |
ToJSON RelType | |
Defined in Adl.ATC_Adl toEncoding :: RelType -> Encoding toJSONList :: [RelType] -> Value toEncodingList :: [RelType] -> Encoding | |
ShATermConvertible RelType | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> RelType -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [RelType] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, RelType) fromShATermList' :: Int -> ATermTable -> (ATermTable, [RelType]) | |
Pretty RelType Source # | |
type Rep RelType | |
Defined in Adl.ATC_Adl type Rep RelType = D1 ('MetaData "RelType" "Adl.As" "main" 'False) (C1 ('MetaCons "RelType" 'PrefixI 'True) (S1 ('MetaSel ('Just "relSrc") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Concept) :*: S1 ('MetaSel ('Just "relTrg") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Concept))) |
Instances
Eq Relation Source # | |
Data Relation Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Relation -> c Relation gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Relation toConstr :: Relation -> Constr dataTypeOf :: Relation -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Relation) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Relation) gmapT :: (forall b. Data b => b -> b) -> Relation -> Relation gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Relation -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Relation -> r gmapQ :: (forall d. Data d => d -> u) -> Relation -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Relation -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Relation -> m Relation gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Relation -> m Relation gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Relation -> m Relation | |
Ord Relation Source # | |
Show Relation Source # | |
Generic Relation | |
GetRange Relation Source # | |
FromJSON Relation | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser Relation parseJSONList :: Value -> Parser [Relation] | |
ToJSON Relation | |
Defined in Adl.ATC_Adl toEncoding :: Relation -> Encoding toJSONList :: [Relation] -> Value toEncodingList :: [Relation] -> Encoding | |
ShATermConvertible Relation | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> Relation -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [Relation] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, Relation) fromShATermList' :: Int -> ATermTable -> (ATermTable, [Relation]) | |
Pretty Relation Source # | |
type Rep Relation | |
Defined in Adl.ATC_Adl type Rep Relation = D1 ('MetaData "Relation" "Adl.As" "main" 'False) (C1 ('MetaCons "Sgn" 'PrefixI 'True) (S1 ('MetaSel ('Just "decnm") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Token) :*: S1 ('MetaSel ('Just "relType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RelType))) |
Instances
Eq UnOp Source # | |
Data UnOp Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> UnOp -> c UnOp gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c UnOp dataTypeOf :: UnOp -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c UnOp) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c UnOp) gmapT :: (forall b. Data b => b -> b) -> UnOp -> UnOp gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> UnOp -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> UnOp -> r gmapQ :: (forall d. Data d => d -> u) -> UnOp -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> UnOp -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> UnOp -> m UnOp gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> UnOp -> m UnOp gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> UnOp -> m UnOp | |
Ord UnOp Source # | |
Show UnOp Source # | |
Generic UnOp | |
FromJSON UnOp | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser UnOp parseJSONList :: Value -> Parser [UnOp] | |
ToJSON UnOp | |
Defined in Adl.ATC_Adl | |
ShATermConvertible UnOp | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> UnOp -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [UnOp] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, UnOp) fromShATermList' :: Int -> ATermTable -> (ATermTable, [UnOp]) | |
Pretty UnOp Source # | |
type Rep UnOp | |
Defined in Adl.ATC_Adl type Rep UnOp = D1 ('MetaData "UnOp" "Adl.As" "main" 'False) ((C1 ('MetaCons "K0" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "K1" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Cp" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Co" 'PrefixI 'False) (U1 :: Type -> Type))) |
Fc | composition ; |
Fd | relative addition ! |
Fi | intersection /. |
Fu | union / |
Ri | Rule implication |- |
Rr | Rule reverse implication -| |
Re | Rule equivalence |
Instances
Eq MulOp Source # | |
Data MulOp Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> MulOp -> c MulOp gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c MulOp dataTypeOf :: MulOp -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c MulOp) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c MulOp) gmapT :: (forall b. Data b => b -> b) -> MulOp -> MulOp gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> MulOp -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> MulOp -> r gmapQ :: (forall d. Data d => d -> u) -> MulOp -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> MulOp -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> MulOp -> m MulOp gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> MulOp -> m MulOp gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> MulOp -> m MulOp | |
Ord MulOp Source # | |
Show MulOp Source # | |
Generic MulOp | |
FromJSON MulOp | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser MulOp parseJSONList :: Value -> Parser [MulOp] | |
ToJSON MulOp | |
Defined in Adl.ATC_Adl | |
ShATermConvertible MulOp | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> MulOp -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [MulOp] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, MulOp) fromShATermList' :: Int -> ATermTable -> (ATermTable, [MulOp]) | |
Pretty MulOp Source # | |
type Rep MulOp | |
Defined in Adl.ATC_Adl type Rep MulOp = D1 ('MetaData "MulOp" "Adl.As" "main" 'False) ((C1 ('MetaCons "Fc" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Fd" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Fi" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Fu" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Ri" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Rr" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Re" 'PrefixI 'False) (U1 :: Type -> Type)))) |
Instances
Eq Rule Source # | |
Data Rule Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Rule -> c Rule gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Rule dataTypeOf :: Rule -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Rule) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Rule) gmapT :: (forall b. Data b => b -> b) -> Rule -> Rule gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Rule -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Rule -> r gmapQ :: (forall d. Data d => d -> u) -> Rule -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Rule -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Rule -> m Rule gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Rule -> m Rule gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Rule -> m Rule | |
Ord Rule Source # | |
Show Rule Source # | |
Generic Rule | |
GetRange Rule Source # | |
FromJSON Rule | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser Rule parseJSONList :: Value -> Parser [Rule] | |
ToJSON Rule | |
Defined in Adl.ATC_Adl | |
ShATermConvertible Rule | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> Rule -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [Rule] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, Rule) fromShATermList' :: Int -> ATermTable -> (ATermTable, [Rule]) | |
Pretty Rule Source # | |
type Rep Rule | |
Defined in Adl.ATC_Adl type Rep Rule = D1 ('MetaData "Rule" "Adl.As" "main" 'False) (C1 ('MetaCons "Tm" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Relation)) :+: (C1 ('MetaCons "MulExp" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MulOp) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Rule])) :+: C1 ('MetaCons "UnExp" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UnOp) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Rule)))) |
Uni | univalent |
Inj | injective |
Sur | surjective |
Tot | total |
Sym | symmetric |
Asy | antisymmetric |
Trn | transitive |
Rfx | reflexive |
Prop | meta property |
Instances
Enum Prop Source # | |
Eq Prop Source # | |
Data Prop Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Prop -> c Prop gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Prop dataTypeOf :: Prop -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Prop) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Prop) gmapT :: (forall b. Data b => b -> b) -> Prop -> Prop gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Prop -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Prop -> r gmapQ :: (forall d. Data d => d -> u) -> Prop -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Prop -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Prop -> m Prop gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Prop -> m Prop gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Prop -> m Prop | |
Ord Prop Source # | |
Show Prop Source # | |
Generic Prop | |
FromJSON Prop | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser Prop parseJSONList :: Value -> Parser [Prop] | |
ToJSON Prop | |
Defined in Adl.ATC_Adl | |
ShATermConvertible Prop | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> Prop -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [Prop] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, Prop) fromShATermList' :: Int -> ATermTable -> (ATermTable, [Prop]) | |
Pretty Prop Source # | |
type Rep Prop | |
Defined in Adl.ATC_Adl type Rep Prop = D1 ('MetaData "Prop" "Adl.As" "main" 'False) (((C1 ('MetaCons "Uni" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Inj" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Sur" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Tot" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Sym" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Asy" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Trn" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Rfx" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Prop" 'PrefixI 'False) (U1 :: Type -> Type))))) |
data RangedProp Source #
Instances
Eq RangedProp Source # | |
Defined in Adl.As (==) :: RangedProp -> RangedProp -> Bool (/=) :: RangedProp -> RangedProp -> Bool | |
Data RangedProp Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> RangedProp -> c RangedProp gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c RangedProp toConstr :: RangedProp -> Constr dataTypeOf :: RangedProp -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c RangedProp) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c RangedProp) gmapT :: (forall b. Data b => b -> b) -> RangedProp -> RangedProp gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> RangedProp -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> RangedProp -> r gmapQ :: (forall d. Data d => d -> u) -> RangedProp -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> RangedProp -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> RangedProp -> m RangedProp gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> RangedProp -> m RangedProp gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> RangedProp -> m RangedProp | |
Ord RangedProp Source # | |
Defined in Adl.As compare :: RangedProp -> RangedProp -> Ordering (<) :: RangedProp -> RangedProp -> Bool (<=) :: RangedProp -> RangedProp -> Bool (>) :: RangedProp -> RangedProp -> Bool (>=) :: RangedProp -> RangedProp -> Bool max :: RangedProp -> RangedProp -> RangedProp min :: RangedProp -> RangedProp -> RangedProp | |
Show RangedProp Source # | |
Defined in Adl.As showsPrec :: Int -> RangedProp -> ShowS show :: RangedProp -> String showList :: [RangedProp] -> ShowS | |
Generic RangedProp | |
Defined in Adl.ATC_Adl type Rep RangedProp :: Type -> Type from :: RangedProp -> Rep RangedProp x to :: Rep RangedProp x -> RangedProp | |
GetRange RangedProp Source # | |
FromJSON RangedProp | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser RangedProp parseJSONList :: Value -> Parser [RangedProp] | |
ToJSON RangedProp | |
Defined in Adl.ATC_Adl toJSON :: RangedProp -> Value toEncoding :: RangedProp -> Encoding toJSONList :: [RangedProp] -> Value toEncodingList :: [RangedProp] -> Encoding | |
ShATermConvertible RangedProp | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> RangedProp -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [RangedProp] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, RangedProp) fromShATermList' :: Int -> ATermTable -> (ATermTable, [RangedProp]) | |
Pretty RangedProp Source # | |
type Rep RangedProp | |
Defined in Adl.ATC_Adl type Rep RangedProp = D1 ('MetaData "RangedProp" "Adl.As" "main" 'False) (C1 ('MetaCons "RangedProp" 'PrefixI 'True) (S1 ('MetaSel ('Just "propProp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Prop) :*: S1 ('MetaSel ('Just "propRange") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Range))) |
rProp :: Prop -> RangedProp Source #
create a ranged property
Instances
Data Object Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Object -> c Object gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Object dataTypeOf :: Object -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Object) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Object) gmapT :: (forall b. Data b => b -> b) -> Object -> Object gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Object -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Object -> r gmapQ :: (forall d. Data d => d -> u) -> Object -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Object -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Object -> m Object gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Object -> m Object gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Object -> m Object | |
Show Object Source # | |
Generic Object | |
FromJSON Object | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser Object parseJSONList :: Value -> Parser [Object] | |
ToJSON Object | |
Defined in Adl.ATC_Adl toEncoding :: Object -> Encoding toJSONList :: [Object] -> Value toEncodingList :: [Object] -> Encoding | |
ShATermConvertible Object | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> Object -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [Object] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, Object) fromShATermList' :: Int -> ATermTable -> (ATermTable, [Object]) | |
Pretty Object Source # | |
type Rep Object | |
Defined in Adl.ATC_Adl type Rep Object = D1 ('MetaData "Object" "Adl.As" "main" 'False) (C1 ('MetaCons "Object" 'PrefixI 'True) ((S1 ('MetaSel ('Just "label") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Token) :*: S1 ('MetaSel ('Just "expr") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Rule)) :*: (S1 ('MetaSel ('Just "props") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [RangedProp]) :*: S1 ('MetaSel ('Just "subobjs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Object])))) |
Instances
Data KeyAtt Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> KeyAtt -> c KeyAtt gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c KeyAtt dataTypeOf :: KeyAtt -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c KeyAtt) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c KeyAtt) gmapT :: (forall b. Data b => b -> b) -> KeyAtt -> KeyAtt gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> KeyAtt -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> KeyAtt -> r gmapQ :: (forall d. Data d => d -> u) -> KeyAtt -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> KeyAtt -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> KeyAtt -> m KeyAtt gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> KeyAtt -> m KeyAtt gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> KeyAtt -> m KeyAtt | |
Show KeyAtt Source # | |
Generic KeyAtt | |
GetRange KeyAtt Source # | |
FromJSON KeyAtt | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser KeyAtt parseJSONList :: Value -> Parser [KeyAtt] | |
ToJSON KeyAtt | |
Defined in Adl.ATC_Adl toEncoding :: KeyAtt -> Encoding toJSONList :: [KeyAtt] -> Value toEncodingList :: [KeyAtt] -> Encoding | |
ShATermConvertible KeyAtt | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> KeyAtt -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [KeyAtt] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, KeyAtt) fromShATermList' :: Int -> ATermTable -> (ATermTable, [KeyAtt]) | |
Pretty KeyAtt Source # | |
type Rep KeyAtt | |
Defined in Adl.ATC_Adl type Rep KeyAtt = D1 ('MetaData "KeyAtt" "Adl.As" "main" 'False) (C1 ('MetaCons "KeyAtt" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Token)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Rule))) |
Instances
Data KeyDef Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> KeyDef -> c KeyDef gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c KeyDef dataTypeOf :: KeyDef -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c KeyDef) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c KeyDef) gmapT :: (forall b. Data b => b -> b) -> KeyDef -> KeyDef gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> KeyDef -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> KeyDef -> r gmapQ :: (forall d. Data d => d -> u) -> KeyDef -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> KeyDef -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> KeyDef -> m KeyDef gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> KeyDef -> m KeyDef gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> KeyDef -> m KeyDef | |
Show KeyDef Source # | |
Generic KeyDef | |
GetRange KeyDef Source # | |
FromJSON KeyDef | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser KeyDef parseJSONList :: Value -> Parser [KeyDef] | |
ToJSON KeyDef | |
Defined in Adl.ATC_Adl toEncoding :: KeyDef -> Encoding toJSONList :: [KeyDef] -> Value toEncodingList :: [KeyDef] -> Encoding | |
ShATermConvertible KeyDef | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> KeyDef -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [KeyDef] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, KeyDef) fromShATermList' :: Int -> ATermTable -> (ATermTable, [KeyDef]) | |
Pretty KeyDef Source # | |
type Rep KeyDef | |
Defined in Adl.ATC_Adl type Rep KeyDef = D1 ('MetaData "KeyDef" "Adl.As" "main" 'False) (C1 ('MetaCons "KeyDef" 'PrefixI 'True) (S1 ('MetaSel ('Just "kdlbl") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Token) :*: (S1 ('MetaSel ('Just "kdcpt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Concept) :*: S1 ('MetaSel ('Just "kdats") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [KeyAtt])))) |
Instances
Eq RuleKind Source # | |
Data RuleKind Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> RuleKind -> c RuleKind gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c RuleKind toConstr :: RuleKind -> Constr dataTypeOf :: RuleKind -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c RuleKind) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c RuleKind) gmapT :: (forall b. Data b => b -> b) -> RuleKind -> RuleKind gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> RuleKind -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> RuleKind -> r gmapQ :: (forall d. Data d => d -> u) -> RuleKind -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> RuleKind -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> RuleKind -> m RuleKind gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> RuleKind -> m RuleKind gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> RuleKind -> m RuleKind | |
Ord RuleKind Source # | |
Show RuleKind Source # | |
Generic RuleKind | |
FromJSON RuleKind | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser RuleKind parseJSONList :: Value -> Parser [RuleKind] | |
ToJSON RuleKind | |
Defined in Adl.ATC_Adl toEncoding :: RuleKind -> Encoding toJSONList :: [RuleKind] -> Value toEncodingList :: [RuleKind] -> Encoding | |
ShATermConvertible RuleKind | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> RuleKind -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [RuleKind] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, RuleKind) fromShATermList' :: Int -> ATermTable -> (ATermTable, [RuleKind]) | |
Pretty RuleKind Source # | |
type Rep RuleKind | |
Defined in Adl.ATC_Adl type Rep RuleKind = D1 ('MetaData "RuleKind" "Adl.As" "main" 'False) (C1 ('MetaCons "SignalOn" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Signals" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Maintains" 'PrefixI 'False) (U1 :: Type -> Type))) |
showRuleKind :: RuleKind -> String Source #
data RuleHeader Source #
Instances
Eq RuleHeader Source # | |
Defined in Adl.As (==) :: RuleHeader -> RuleHeader -> Bool (/=) :: RuleHeader -> RuleHeader -> Bool | |
Data RuleHeader Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> RuleHeader -> c RuleHeader gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c RuleHeader toConstr :: RuleHeader -> Constr dataTypeOf :: RuleHeader -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c RuleHeader) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c RuleHeader) gmapT :: (forall b. Data b => b -> b) -> RuleHeader -> RuleHeader gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> RuleHeader -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> RuleHeader -> r gmapQ :: (forall d. Data d => d -> u) -> RuleHeader -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> RuleHeader -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> RuleHeader -> m RuleHeader gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> RuleHeader -> m RuleHeader gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> RuleHeader -> m RuleHeader | |
Show RuleHeader Source # | |
Defined in Adl.As showsPrec :: Int -> RuleHeader -> ShowS show :: RuleHeader -> String showList :: [RuleHeader] -> ShowS | |
Generic RuleHeader | |
Defined in Adl.ATC_Adl type Rep RuleHeader :: Type -> Type from :: RuleHeader -> Rep RuleHeader x to :: Rep RuleHeader x -> RuleHeader | |
FromJSON RuleHeader | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser RuleHeader parseJSONList :: Value -> Parser [RuleHeader] | |
ToJSON RuleHeader | |
Defined in Adl.ATC_Adl toJSON :: RuleHeader -> Value toEncoding :: RuleHeader -> Encoding toJSONList :: [RuleHeader] -> Value toEncodingList :: [RuleHeader] -> Encoding | |
ShATermConvertible RuleHeader | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> RuleHeader -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [RuleHeader] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, RuleHeader) fromShATermList' :: Int -> ATermTable -> (ATermTable, [RuleHeader]) | |
Pretty RuleHeader Source # | |
type Rep RuleHeader | |
Defined in Adl.ATC_Adl type Rep RuleHeader = D1 ('MetaData "RuleHeader" "Adl.As" "main" 'False) (C1 ('MetaCons "Always" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "RuleHeader" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RuleKind) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Token))) |
Instances
Data Pair Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Pair -> c Pair gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Pair dataTypeOf :: Pair -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Pair) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Pair) gmapT :: (forall b. Data b => b -> b) -> Pair -> Pair gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Pair -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Pair -> r gmapQ :: (forall d. Data d => d -> u) -> Pair -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Pair -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Pair -> m Pair gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Pair -> m Pair gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Pair -> m Pair | |
Show Pair Source # | |
Generic Pair | |
FromJSON Pair | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser Pair parseJSONList :: Value -> Parser [Pair] | |
ToJSON Pair | |
Defined in Adl.ATC_Adl | |
ShATermConvertible Pair | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> Pair -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [Pair] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, Pair) fromShATermList' :: Int -> ATermTable -> (ATermTable, [Pair]) | |
Pretty Pair Source # | |
type Rep Pair | |
Defined in Adl.ATC_Adl type Rep Pair = D1 ('MetaData "Pair" "Adl.As" "main" 'False) (C1 ('MetaCons "Pair" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Token) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Token))) |
Instances
Data Plugin Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Plugin -> c Plugin gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Plugin dataTypeOf :: Plugin -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Plugin) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Plugin) gmapT :: (forall b. Data b => b -> b) -> Plugin -> Plugin gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Plugin -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Plugin -> r gmapQ :: (forall d. Data d => d -> u) -> Plugin -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Plugin -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Plugin -> m Plugin gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Plugin -> m Plugin gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Plugin -> m Plugin | |
Show Plugin Source # | |
Generic Plugin | |
FromJSON Plugin | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser Plugin parseJSONList :: Value -> Parser [Plugin] | |
ToJSON Plugin | |
Defined in Adl.ATC_Adl toEncoding :: Plugin -> Encoding toJSONList :: [Plugin] -> Value toEncodingList :: [Plugin] -> Encoding | |
ShATermConvertible Plugin | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> Plugin -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [Plugin] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, Plugin) fromShATermList' :: Int -> ATermTable -> (ATermTable, [Plugin]) | |
type Rep Plugin | |
Defined in Adl.ATC_Adl type Rep Plugin = D1 ('MetaData "Plugin" "Adl.As" "main" 'False) (C1 ('MetaCons "Service" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Sqlplug" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Phpplug" 'PrefixI 'False) (U1 :: Type -> Type))) |
Pr RuleHeader Rule | |
Pg Concept Concept | |
Pk KeyDef | |
Pm [RangedProp] Relation Bool | |
Plug Plugin Object | |
Population Bool Relation [Pair] |
Instances
Data PatElem Source # | |
Defined in Adl.As gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> PatElem -> c PatElem gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c PatElem dataTypeOf :: PatElem -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c PatElem) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c PatElem) gmapT :: (forall b. Data b => b -> b) -> PatElem -> PatElem gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> PatElem -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> PatElem -> r gmapQ :: (forall d. Data d => d -> u) -> PatElem -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> PatElem -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> PatElem -> m PatElem gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> PatElem -> m PatElem gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> PatElem -> m PatElem | |
Show PatElem Source # | |
Generic PatElem | |
FromJSON PatElem | |
Defined in Adl.ATC_Adl parseJSON :: Value -> Parser PatElem parseJSONList :: Value -> Parser [PatElem] | |
ToJSON PatElem | |
Defined in Adl.ATC_Adl toEncoding :: PatElem -> Encoding toJSONList :: [PatElem] -> Value toEncodingList :: [PatElem] -> Encoding | |
ShATermConvertible PatElem | |
Defined in Adl.ATC_Adl toShATermAux :: ATermTable -> PatElem -> IO (ATermTable, Int) toShATermList' :: ATermTable -> [PatElem] -> IO (ATermTable, Int) fromShATermAux :: Int -> ATermTable -> (ATermTable, PatElem) fromShATermList' :: Int -> ATermTable -> (ATermTable, [PatElem]) | |
Pretty PatElem Source # | |
type Rep PatElem | |
Defined in Adl.ATC_Adl type Rep PatElem = D1 ('MetaData "PatElem" "Adl.As" "main" 'False) ((C1 ('MetaCons "Pr" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RuleHeader) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Rule)) :+: (C1 ('MetaCons "Pg" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Concept) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Concept)) :+: C1 ('MetaCons "Pk" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 KeyDef)))) :+: (C1 ('MetaCons "Pm" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [RangedProp]) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Relation) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool))) :+: (C1 ('MetaCons "Plug" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Plugin) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Object)) :+: C1 ('MetaCons "Population" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Relation) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Pair])))))) |
Instances
comparePatElem :: PatElem -> PatElem -> Ordering Source #