Safe Haskell | Safe-Infered |
---|
- data IxSet a
- class Indexable a where
- noCalcs :: t -> ()
- inferIxSet :: String -> Name -> Name -> [Name] -> Q [Dec]
- ixSet :: [Ix a] -> IxSet a
- ixFun :: (Ord b, Typeable b) => (a -> [b]) -> Ix a
- ixGen :: forall a b. (Data a, Ord b, Typeable b) => Proxy b -> Ix a
- type IndexOp = forall k a. (Ord k, Ord a) => k -> a -> Map k (Set a) -> Map k (Set a)
- change :: (Typeable a, Indexable a, Ord a) => IndexOp -> a -> IxSet a -> IxSet a
- insert :: (Typeable a, Ord a, Indexable a) => a -> IxSet a -> IxSet a
- delete :: (Typeable a, Ord a, Indexable a) => a -> IxSet a -> IxSet a
- updateIx :: (Indexable a, Ord a, Typeable a, Typeable k) => k -> a -> IxSet a -> IxSet a
- deleteIx :: (Indexable a, Ord a, Typeable a, Typeable k) => k -> IxSet a -> IxSet a
- fromSet :: (Indexable a, Ord a, Typeable a) => Set a -> IxSet a
- fromList :: (Indexable a, Ord a, Typeable a) => [a] -> IxSet a
- toSet :: Ord a => IxSet a -> Set a
- toList :: Ord a => IxSet a -> [a]
- toAscList :: forall k a. (Indexable a, Typeable a, Typeable k) => Proxy k -> IxSet a -> [a]
- toDescList :: forall k a. (Indexable a, Typeable a, Typeable k) => Proxy k -> IxSet a -> [a]
- getOne :: Ord a => IxSet a -> Maybe a
- getOneOr :: Ord a => a -> IxSet a -> a
- size :: Ord a => IxSet a -> Int
- null :: IxSet a -> Bool
- (&&&) :: (Ord a, Typeable a, Indexable a) => IxSet a -> IxSet a -> IxSet a
- (|||) :: (Ord a, Typeable a, Indexable a) => IxSet a -> IxSet a -> IxSet a
- union :: (Ord a, Typeable a, Indexable a) => IxSet a -> IxSet a -> IxSet a
- intersection :: (Ord a, Typeable a, Indexable a) => IxSet a -> IxSet a -> IxSet a
- (@=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
- (@<) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
- (@>) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
- (@<=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
- (@>=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
- (@><) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> (k, k) -> IxSet a
- (@>=<) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> (k, k) -> IxSet a
- (@><=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> (k, k) -> IxSet a
- (@>=<=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> (k, k) -> IxSet a
- (@+) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> [k] -> IxSet a
- (@*) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> [k] -> IxSet a
- getEQ :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
- getLT :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
- getGT :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
- getLTE :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
- getGTE :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
- getRange :: (Indexable a, Typeable k, Ord a, Typeable a) => k -> k -> IxSet a -> IxSet a
- groupBy :: (Typeable k, Typeable t) => IxSet t -> [(k, [t])]
- groupAscBy :: (Typeable k, Typeable t) => IxSet t -> [(k, [t])]
- groupDescBy :: (Typeable k, Typeable t) => IxSet t -> [(k, [t])]
- flatten :: (Typeable a, Data a, Typeable b) => a -> [b]
- flattenWithCalcs :: (Data c, Typeable a, Data a, Typeable b) => (a -> c) -> a -> [b]
- stats :: Ord a => IxSet a -> (Int, Int, Int, Int)
Set type
data IxSet a
Set with associatex indexes.
Typeable1 IxSet | |
(Data ctx a, Data ctx [a], Sat (ctx (IxSet a)), Sat (ctx [a]), Indexable a, Data a, Ord a) => Data ctx (IxSet a) | |
(Eq a, Ord a, Typeable a) => Eq (IxSet a) | |
Data a => Data (IxSet a) | |
(Eq a, Ord a, Typeable a) => Ord (IxSet a) | |
(Ord a, Read a, Typeable a, Indexable a) => Read (IxSet a) | |
(Ord a, Show a) => Show (IxSet a) | |
Version (IxSet a) | |
(Serialize a, Ord a, Typeable a, Indexable a) => Serialize (IxSet a) | |
(Indexable a, Ord a, Data a, Default a) => Default (IxSet a) | |
(Indexable a, Typeable a, Ord a) => Monoid (IxSet a) | |
(SafeCopy a, Ord a, Typeable a, Indexable a) => SafeCopy (IxSet a) |
class Indexable a where
noCalcs :: t -> ()
Function to be used for calcs
in inferIxSet
when you don't
want any calculated values.
inferIxSet :: String -> Name -> Name -> [Name] -> Q [Dec]
Template Haskell helper function for automatically building an
Indexable
instance from a data type, e.g.
data Foo = Foo Int String
and
$(inferIxSet "FooDB" ''Foo 'noCalcs [''Int,''String])
will build a type synonym
type FooDB = IxSet Foo
with Int
and String
as indexes.
WARNING: The type specified as the first index must be a type which
appears in all values in the IxSet
or toList
, toSet
and
serialization will not function properly. You will be warned not to do
this by runtime error. You can always use the element type
itself. For example:
$(inferIxSet "FooDB" ''Foo 'noCalcs [''Foo, ''Int, ''String])
Create an IxSet
using a list of indexes. Useful in Indexable
empty
method. Use ixFun
and ixGen
as list elements.
instance Indexable Type where empty = ixSet [ ... ixFun getIndex1 ixGen (Proxy :: Proxy Index2Type) ]
First index in the list must contain all objects in set, doing otherwise result in runtime error.
ixFun :: (Ord b, Typeable b) => (a -> [b]) -> Ix a
Create a functional index. Provided function should return a list of indexes where value should be found.
getIndexes value = [...indexes...]
instance Indexable Type where empty = ixSet [ ixFun getIndexes ]
This is the recommended way to create indexes.
ixGen :: forall a b. (Data a, Ord b, Typeable b) => Proxy b -> Ix aSource
Create a generic index. Provided example is used only as type
source so you may use a Proxy
. The ixGen
uses flatten to
traverse value using its Data
instance.
instance Indexable Type where empty = ixSet [ ixGen (Proxy :: Proxy Type) ]
In production systems consider using ixFun
in place of ixGen
as
the former one is much faster.
Changes to set
type IndexOp = forall k a. (Ord k, Ord a) => k -> a -> Map k (Set a) -> Map k (Set a)
delete :: (Typeable a, Ord a, Indexable a) => a -> IxSet a -> IxSet a
Removes an item from the IxSet
.
Creation
Conversion
toAscList :: forall k a. (Indexable a, Typeable a, Typeable k) => Proxy k -> IxSet a -> [a]Source
Converts an IxSet
to its list of elements.
List will be sorted in ascending order by the index k
.
The list may contain duplicate entries if a single value produces multiple keys.
toDescList :: forall k a. (Indexable a, Typeable a, Typeable k) => Proxy k -> IxSet a -> [a]Source
Converts an IxSet
to its list of elements.
List will be sorted in descending order by the index k
.
The list may contain duplicate entries if a single value produces multiple keys.
Size checking
Set operations
(&&&) :: (Ord a, Typeable a, Indexable a) => IxSet a -> IxSet a -> IxSet a
An infix intersection
operation.
union :: (Ord a, Typeable a, Indexable a) => IxSet a -> IxSet a -> IxSet a
Takes the union of the two IxSet
s.
intersection :: (Ord a, Typeable a, Indexable a) => IxSet a -> IxSet a -> IxSet a
Takes the intersection of the two IxSet
s.
Indexing
(@=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
Infix version of getEQ
.
(@<) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
Infix version of getLT
.
(@>) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
Infix version of getGT
.
(@<=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
Infix version of getLTE
.
(@>=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> k -> IxSet a
Infix version of getGTE
.
(@><) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> (k, k) -> IxSet a
Returns the subset with indexes in the open interval (k,k).
(@>=<) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> (k, k) -> IxSet a
Returns the subset with indexes in [k,k).
(@><=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> (k, k) -> IxSet a
Returns the subset with indexes in (k,k].
(@>=<=) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> (k, k) -> IxSet a
Returns the subset with indexes in [k,k].
(@+) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> [k] -> IxSet a
Creates the subset that has an index in the provided list.
(@*) :: (Indexable a, Typeable a, Ord a, Typeable k) => IxSet a -> [k] -> IxSet a
Creates the subset that matches all the provided indexes.
getEQ :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
Returns the subset with an index equal to the provided key. The set must be indexed over key type, doing otherwise results in runtime error.
getLT :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
Returns the subset with an index less than the provided key. The set must be indexed over key type, doing otherwise results in runtime error.
getGT :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
Returns the subset with an index greater than the provided key. The set must be indexed over key type, doing otherwise results in runtime error.
getLTE :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
Returns the subset with an index less than or equal to the provided key. The set must be indexed over key type, doing otherwise results in runtime error.
getGTE :: (Indexable a, Typeable a, Ord a, Typeable k) => k -> IxSet a -> IxSet a
Returns the subset with an index greater than or equal to the provided key. The set must be indexed over key type, doing otherwise results in runtime error.
getRange :: (Indexable a, Typeable k, Ord a, Typeable a) => k -> k -> IxSet a -> IxSet a
Returns the subset with an index within the interval provided. The bottom of the interval is closed and the top is open, i. e. [k1;k2). The set must be indexed over key type, doing otherwise results in runtime error.
groupBy :: (Typeable k, Typeable t) => IxSet t -> [(k, [t])]
Returns lists of elements paired with the indexes determined by type inference.
groupAscBy :: (Typeable k, Typeable t) => IxSet t -> [(k, [t])]
Returns lists of elements paired with the indexes determined by type inference.
The resulting list will be sorted in ascending order by k
.
The values in '[t]' will be sorted in ascending order as well.
groupDescBy :: (Typeable k, Typeable t) => IxSet t -> [(k, [t])]
Returns lists of elements paired with the indexes determined by type inference.
The resulting list will be sorted in descending order by k
.
NOTE: The values in '[t]' are currently sorted in ascending
order. But this may change if someone bothers to add
toDescList
. So do not rely on the sort order of '[t]'.
Index creation helpers
flatten :: (Typeable a, Data a, Typeable b) => a -> [b]
Generically traverses the argument to find all occurences of
values of type b
and returns them as a list.
This function properly handles String
as String
not as [
.
Char
]
flattenWithCalcs :: (Data c, Typeable a, Data a, Typeable b) => (a -> c) -> a -> [b]
Generically traverses the argument and calculated values to find
all occurences of values of type b
and returns them as a
list. Equivalent to:
flatten (x,calcs x)
This function properly handles String
as String
not as [
.
Char
]
Debugging and optimisation
stats :: Ord a => IxSet a -> (Int, Int, Int, Int)
Statistics about IxSet
. This function returns quadruple
consisting of 1. total number of elements in the set 2. number of
declared indexes 3. number of keys in all indexes 4. number of
values in all keys in all indexes. This can aid you in debugging
and optimisation.