Citeproc hangs when handling a BibTeX item with an attribute ending in a space about citeproc HOT 6 CLOSED

{-# LANGUAGE OverloadedStrings #-}
module Refs (test) where
import Citeproc
import Citeproc.Pandoc
import Text.Pandoc.Definition
import Text.Pandoc.Builder
import Data.Map
import Data.Sequence
import qualified Data.Text
import qualified Data.Text.IO


test = do

  let refs = [Reference {referenceId = ItemId {unItemId = "Cole2014a"}, referenceType = "paper-conference", referenceDisambiguation = Nothing, referenceVariables = Data.Map.fromList [(toVariable "author",NamesVal [Name {nameFamily = Just "Cole", nameGiven = Just "Michael", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Engestr\246m", nameGiven = Just "Yrj\246", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Sannino", nameGiven = Just "Annalisa", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Guti\233rrez", nameGiven = Just "Kris", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Jurow", nameGiven = Just "Susan", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Packer", nameGiven = Just "Martin", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Penuel", nameGiven = Just "William R.", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Johnson", nameGiven = Just "Raymond", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Severance", nameGiven = Just "Samuel", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Leary", nameGiven = Just "Heather", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing},Name {nameFamily = Just "Miller", nameGiven = Just "Susan", nameDroppingParticle = Nothing, nameNonDroppingParticle = Nothing, nameSuffix = Nothing, nameCommaSuffix = False, nameStaticOrdering = False, nameLiteral = Nothing}]),(toVariable "container-title",FancyVal (Many {unMany = Data.Sequence.fromList [Str "ICLS",Space,Str "2014",Space,Str "Proceedings",Space]})),(toVariable "issued",DateVal (Date {dateParts = [DateParts [2014]], dateCirca = False, dateSeason = Nothing, dateLiteral = Nothing})),(toVariable "page",TextVal "1254-1263"),(toVariable "title",FancyVal (Many {unMany = Data.Sequence.fromList [Str "Toward",Space,Str "an",Space,Str "argumentative",Space,Str "grammar",Space,Str "for",Space,Str "socio-cultural/cultural-historical",Space,Str "activity",Space,Str "approaches",Space,Str "to",Space,Str "design",Space,Str "research"]}))]}]
  Right apaStyle <- Data.Text.IO.readFile "../styles/apa.csl" >>= parseStyle return
  let cits = [Citeproc.Citation Nothing Nothing [CitationItem (ItemId "Cole2014a") Nothing Nothing NormalCite Nothing Nothing]]
  print (citeproc defaultCiteprocOptions apaStyle Nothing refs cits)

λ> dropTextWhileEnd (==' ') $ Many $ Data.Sequence.fromList [Emph [Str "ICLS",Space,Str "2014",Space,Str "Proceedings",Space]]
Many {unMany = fromList [Emph [Str "ICLS",Space,Str "2014",Space,Str "Proceedings",Space]]}