Add parse from ByteString

[tonal]

Add parse from ByteString and Text

[kazu-yamamoto]

Are you talking about IP?

[tonal]

Yes. I parse very big apache log files and find each IP in RouteTable.

[kazu-yamamoto]

OK. Could you implement it by yourself and give me a pull request?

[tonal]

I work throuth 4Int list:

import Control.Applicative
import Data.Attoparsec.ByteString
import qualified Data.ByteString.Char8 as BC
import Data.ByteString.Internal (c2w)

ip2list :: BC.ByteString -> [Int]
ip2list ipstr =
  case parseOnly pIP2list ipstr of
    Left msg -> error msg
    Right ip -> ip

pIP2list :: Parser [Int]
pIP2list = toIP <$> dd <*> dd <*> dd <*> dig
  where
    toIP a b c d = [a, b, c, d]
    dig = AC.decimal
    dd = dig <* skip (== c2w '.')

And my ipFilter:

ipFiltr :: IPRTable IPv4 () -> LogLine -> Bool
ipFiltr bans
  = DM.isNothing . flip lookup bans
  . flip makeAddrRange 32 . toIPv4 . ip2list . getLogIP