module Debian.Relation.ByteString
(
PkgName
, AndRelation
, OrRelation
, Relations
, Relation(..)
, ArchitectureReq(..)
, VersionReq(..)
, checkVersionReq
, RelParser
, ParseRelations(..)
) where
import Data.List
import Text.ParserCombinators.Parsec
import qualified Data.ByteString.Char8 as C
import Debian.Relation.String
instance ParseRelations C.ByteString where
parseRelations byteStr =
let str = C.unpack byteStr in
case parse pRelations str str of
Right relations -> Right (filter (/= []) relations)
x -> x