Change default for first-reference-note-number to 0 on reading.

See #128.
jgm · May 9, 2015 · 0de8371 · 0de8371
1 parent 7132cdd
commit 0de8371
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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