parse :: [B.ByteString]
      -> [B.ByteString]
      -> [(B.ByteString, B.ByteString)]
      -> (Bool, [(B.ByteString, B.ByteString)])
parse []      []       params = (True, params)
parse :: [B.ByteString]
      -> [B.ByteString]
      -> [(B.ByteString, B.ByteString)]
      -> (Bool, [(B.ByteString, B.ByteString)])
parse []      []       params = (True, params)
parse []      []       params = (True, params)