JSON array conduit

jsonarray.hs

import Conduit
import Control.Applicative
import Control.Monad
import Data.Aeson
import Data.Aeson.Parser
import Data.Attoparsec.ByteString.Char8 as AP
import qualified Data.ByteString.Char8 as BS
import Data.Conduit.Attoparsec

arrayConduit :: MonadThrow m => Conduit BS.ByteString m Value
arrayConduit = sinkParser (char '[') *> parseElem value
  where
    parseElem p = join $ sinkParser $
      skipSpace *>
        ((return () <$ char ']') <|>
         ((\v -> yield v >> parseElems) <$> p))
    parseElems = parseElem (char ',' *> skipSpace *> value)