{-# LANGUAGE OverloadedStrings #-}

module T where

import Control.Applicative
import Data.Attoparsec.ByteString.Char8 as B
import Data.ByteString

f :: Parser (ByteString,ByteString)
f = (,) <$> "foo" <*> "bar"