From 0de83712ccc7420abd7b6293ae945e0f8b2b637b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 9 May 2015 10:56:22 -0700 Subject: [PATCH] Change default for first-reference-note-number to 0 on reading. See #128. --- src/Text/CSL/Reference.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Text/CSL/Reference.hs b/src/Text/CSL/Reference.hs index 7b64d62b..473d8f09 100644 --- a/src/Text/CSL/Reference.hs +++ b/src/Text/CSL/Reference.hs @@ -441,7 +441,7 @@ instance FromJSON Reference where v .:? "categories" .!= [] <*> v .:? "language" .!= "" <*> v .:? "citation-number" .!= CNum 0 <*> - ((v .: "first-reference-note-number" >>= parseInt) <|> return 1) <*> + ((v .: "first-reference-note-number" >>= parseInt) <|> return 0) <*> v .:? "citation-label" .!= "") where takeFirstNum (Formatted (Str xs : _)) = case takeWhile isDigit xs of