Safe Haskell	None
Language	Haskell2010

Web.UAParser

Contents

Parsing browser (user agent)
Parsing OS
Parsing Dev

Synopsis

Parsing browser (user agent)

parseUA :: ByteString -> Maybe UAResult Source #

Parse a given User-Agent string

parseUALenient :: ByteString -> UAResult Source #

Parser that, upon failure to match a pattern returns a result of family Other with all other fields blank. This is mainly for compatibility with the uap-core test suite

data UAResult Source #

Results datatype for the parsed User-Agent

Constructors

UAResult
Fields uarFamily :: Text uarV1 :: Maybe Text uarV2 :: Maybe Text uarV3 :: Maybe Text

Instances

Eq UAResult Source #
Methods (==) :: UAResult -> UAResult -> Bool # (/=) :: UAResult -> UAResult -> Bool #
Data UAResult Source #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> UAResult -> c UAResult # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c UAResult # toConstr :: UAResult -> Constr # dataTypeOf :: UAResult -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c UAResult) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c UAResult) # gmapT :: (forall b. Data b => b -> b) -> UAResult -> UAResult # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> UAResult -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> UAResult -> r # gmapQ :: (forall d. Data d => d -> u) -> UAResult -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> UAResult -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> UAResult -> m UAResult # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> UAResult -> m UAResult # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> UAResult -> m UAResult #
Read UAResult Source #
Methods readsPrec :: Int -> ReadS UAResult # readList :: ReadS [UAResult] # readPrec :: ReadPrec UAResult # readListPrec :: ReadPrec [UAResult] #
Show UAResult Source #
Methods showsPrec :: Int -> UAResult -> ShowS # show :: UAResult -> String # showList :: [UAResult] -> ShowS #
Generic UAResult Source #
Associated Types type Rep UAResult :: * -> * # Methods from :: UAResult -> Rep UAResult x # to :: Rep UAResult x -> UAResult #
Default UAResult Source #
Methods def :: UAResult #
type Rep UAResult Source #
type Rep UAResult = D1 * (MetaData "UAResult" "Web.UAParser" "ua-parser-0.7.5.0-7ZG3g9ylC7CKleP4pW55aZ" False) (C1 * (MetaCons "UAResult" PrefixI True) ((::) ((::) (S1 * (MetaSel (Just Symbol "uarFamily") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Text)) (S1 * (MetaSel (Just Symbol "uarV1") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text)))) ((::) (S1 * (MetaSel (Just Symbol "uarV2") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text))) (S1 * (MetaSel (Just Symbol "uarV3") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text))))))

uarVersion :: UAResult -> Text Source #

Construct a browser version-string from UAResult

Parsing OS

parseOS :: ByteString -> Maybe OSResult Source #

Parse OS from given User-Agent string

parseOSLenient :: ByteString -> OSResult Source #

Parser that, upon failure to match a pattern returns a result of family Other with all other fields blank. This is mainly for compatibility with the uap-core test suite

data OSResult Source #

Result type for parseOS

Constructors

OSResult
Fields osrFamily :: Text osrV1 :: Maybe Text osrV2 :: Maybe Text osrV3 :: Maybe Text osrV4 :: Maybe Text

Instances

Eq OSResult Source #
Methods (==) :: OSResult -> OSResult -> Bool # (/=) :: OSResult -> OSResult -> Bool #
Data OSResult Source #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> OSResult -> c OSResult # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c OSResult # toConstr :: OSResult -> Constr # dataTypeOf :: OSResult -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c OSResult) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c OSResult) # gmapT :: (forall b. Data b => b -> b) -> OSResult -> OSResult # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> OSResult -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> OSResult -> r # gmapQ :: (forall d. Data d => d -> u) -> OSResult -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> OSResult -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> OSResult -> m OSResult # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> OSResult -> m OSResult # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> OSResult -> m OSResult #
Read OSResult Source #
Methods readsPrec :: Int -> ReadS OSResult # readList :: ReadS [OSResult] # readPrec :: ReadPrec OSResult # readListPrec :: ReadPrec [OSResult] #
Show OSResult Source #
Methods showsPrec :: Int -> OSResult -> ShowS # show :: OSResult -> String # showList :: [OSResult] -> ShowS #
Generic OSResult Source #
Associated Types type Rep OSResult :: * -> * # Methods from :: OSResult -> Rep OSResult x # to :: Rep OSResult x -> OSResult #
Default OSResult Source #
Methods def :: OSResult #
type Rep OSResult Source #
type Rep OSResult = D1 * (MetaData "OSResult" "Web.UAParser" "ua-parser-0.7.5.0-7ZG3g9ylC7CKleP4pW55aZ" False) (C1 * (MetaCons "OSResult" PrefixI True) ((::) ((::) (S1 * (MetaSel (Just Symbol "osrFamily") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Text)) (S1 * (MetaSel (Just Symbol "osrV1") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text)))) ((::) (S1 * (MetaSel (Just Symbol "osrV2") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text))) ((::) (S1 * (MetaSel (Just Symbol "osrV3") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text))) (S1 * (MetaSel (Just Symbol "osrV4") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text)))))))

osrVersion :: OSResult -> Text Source #

Construct a version string from OSResult

Parsing Dev

parseDev :: ByteString -> Maybe DevResult Source #

parseDevLenient :: ByteString -> DevResult Source #

Parser that, upon failure to match a pattern returns a result of family Other with all other fields blank. This is mainly for compatibility with the uap-core test suite

data DevResult Source #

Result type for parseDev

Constructors

DevResult
Fields drFamily :: Text drBrand :: Maybe Text drModel :: Maybe Text

Instances

Eq DevResult Source #
Methods (==) :: DevResult -> DevResult -> Bool # (/=) :: DevResult -> DevResult -> Bool #
Data DevResult Source #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> DevResult -> c DevResult # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c DevResult # toConstr :: DevResult -> Constr # dataTypeOf :: DevResult -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c DevResult) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c DevResult) # gmapT :: (forall b. Data b => b -> b) -> DevResult -> DevResult # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> DevResult -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> DevResult -> r # gmapQ :: (forall d. Data d => d -> u) -> DevResult -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> DevResult -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> DevResult -> m DevResult # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> DevResult -> m DevResult # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> DevResult -> m DevResult #
Read DevResult Source #
Methods readsPrec :: Int -> ReadS DevResult # readList :: ReadS [DevResult] # readPrec :: ReadPrec DevResult # readListPrec :: ReadPrec [DevResult] #
Show DevResult Source #
Methods showsPrec :: Int -> DevResult -> ShowS # show :: DevResult -> String # showList :: [DevResult] -> ShowS #
Generic DevResult Source #
Associated Types type Rep DevResult :: * -> * # Methods from :: DevResult -> Rep DevResult x # to :: Rep DevResult x -> DevResult #
Default DevResult Source #
Methods def :: DevResult #
type Rep DevResult Source #
type Rep DevResult = D1 * (MetaData "DevResult" "Web.UAParser" "ua-parser-0.7.5.0-7ZG3g9ylC7CKleP4pW55aZ" False) (C1 * (MetaCons "DevResult" PrefixI True) ((::) (S1 * (MetaSel (Just Symbol "drFamily") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Text)) ((::) (S1 * (MetaSel (Just Symbol "drBrand") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text))) (S1 * (MetaSel (Just Symbol "drModel") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Text))))))