Muse reader: allow definition to end with EOF

src/Text/Pandoc/Readers/Muse.hs

@@ -445,7 +445,7 @@ definitionListItem = try $ do
   term <- termParser
   many1 spaceChar
   string "::"
-  firstLine <- anyLineNewline
+  firstLine <- many $ noneOf "\n"
   restLines <- manyTill anyLineNewline endOfListItemElement
   let lns = firstLine : restLines
   lineContent <- parseFromString (withListContext parseBlocks) $ concat lns ++ "\n"

test/Tests/Readers/Muse.hs

@@ -754,6 +754,8 @@ tests =
           ] =?>
         para "Foo" <>
         definitionList [ ("Bar", [ para "baz" ]) ]
+      , "One-line definition list" =: " foo :: bar" =?>
+        definitionList [ ("foo", [ para "bar" ]) ]
       , "Multi-line definition lists" =:
         T.unlines
           [ " First term :: Definition of first term"