{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
module Database.Persist.IP ( (<:<.)
, (>:>.)
, (<:<=)
, (>:>=)
, (<.<.)
, (>.>.)
, IP
, IPRange
) where
import Data.IP
import Database.Persist
import Database.Persist.Instances.IP ()
import Unsafe.Coerce (unsafeCoerce)
#if MIN_VERSION_persistent(2,10,0)
#define VALUE_CONSTRUCTOR FilterValue
#else
#define VALUE_CONSTRUCTOR Left
#endif
(<:<.) :: EntityField record IPRange -> IPRange -> Filter record
EntityField record IPRange
field <:<. :: EntityField record IPRange -> IPRange -> Filter record
<:<. IPRange
range = EntityField record IPRange
-> FilterValue IPRange -> PersistFilter -> Filter record
forall record typ.
PersistField typ =>
EntityField record typ
-> FilterValue typ -> PersistFilter -> Filter record
Filter EntityField record IPRange
field (VALUE_CONSTRUCTOR range) (BackendSpecificFilter "<<")
(>:>.) :: EntityField record IPRange -> IPRange -> Filter record
EntityField record IPRange
field >:>. :: EntityField record IPRange -> IPRange -> Filter record
>:>. IPRange
range = EntityField record IPRange
-> FilterValue IPRange -> PersistFilter -> Filter record
forall record typ.
PersistField typ =>
EntityField record typ
-> FilterValue typ -> PersistFilter -> Filter record
Filter EntityField record IPRange
field (VALUE_CONSTRUCTOR range) (BackendSpecificFilter ">>")
(<:<=) :: EntityField record IPRange -> IPRange -> Filter record
EntityField record IPRange
field <:<= :: EntityField record IPRange -> IPRange -> Filter record
<:<= IPRange
range = EntityField record IPRange
-> FilterValue IPRange -> PersistFilter -> Filter record
forall record typ.
PersistField typ =>
EntityField record typ
-> FilterValue typ -> PersistFilter -> Filter record
Filter EntityField record IPRange
field (VALUE_CONSTRUCTOR range) (BackendSpecificFilter "<<=")
(>:>=) :: EntityField record IPRange -> IPRange -> Filter record
EntityField record IPRange
field >:>= :: EntityField record IPRange -> IPRange -> Filter record
>:>= IPRange
range = EntityField record IPRange
-> FilterValue IPRange -> PersistFilter -> Filter record
forall record typ.
PersistField typ =>
EntityField record typ
-> FilterValue typ -> PersistFilter -> Filter record
Filter EntityField record IPRange
field (VALUE_CONSTRUCTOR range) (BackendSpecificFilter ">>=")
(<.<.) :: EntityField record IP -> IPRange -> Filter record
EntityField record IP
field <.<. :: EntityField record IP -> IPRange -> Filter record
<.<. IPRange
range = EntityField record IPRange
-> FilterValue IPRange -> PersistFilter -> Filter record
forall record typ.
PersistField typ =>
EntityField record typ
-> FilterValue typ -> PersistFilter -> Filter record
Filter (EntityField record IP -> EntityField record IPRange
forall a b. a -> b
unsafeCoerce EntityField record IP
field :: EntityField record IPRange) (VALUE_CONSTRUCTOR range) (BackendSpecificFilter "<<")
(>.>.) :: EntityField record IPRange -> IP -> Filter record
EntityField record IPRange
field >.>. :: EntityField record IPRange -> IP -> Filter record
>.>. IP
ip = EntityField record IP
-> FilterValue IP -> PersistFilter -> Filter record
forall record typ.
PersistField typ =>
EntityField record typ
-> FilterValue typ -> PersistFilter -> Filter record
Filter (EntityField record IPRange -> EntityField record IP
forall a b. a -> b
unsafeCoerce EntityField record IPRange
field :: EntityField record IP) (VALUE_CONSTRUCTOR ip) (BackendSpecificFilter ">>")
#undef VALUE_CONSTRUCTOR