@@ -94,7 +94,7 @@ parseImportDeclaration = do
94parseDeclarationRef :: P.Parsec String ParseState DeclarationRef
94parseDeclarationRef :: P.Parsec String ParseState DeclarationRef
95parseDeclarationRef = ValueRef <$> parseIdent
95parseDeclarationRef = ValueRef <$> parseIdent
96 <|> do name <- properName
96 <|> do name <- properName
97− dctors <- P.optionMaybe $ parens (Just <$> commaSep properName <|> lexeme (P.string "..") *> pure Nothing)
97+ dctors <- P.optionMaybe $ parens (lexeme (P.string "..") *> pure Nothing <|> Just <$> commaSep properName)
98 return $ maybe (TypeClassRef name) (TypeRef name) dctors
98 return $ maybe (TypeClassRef name) (TypeRef name) dctors
100parseTypeClassDeclaration :: P.Parsec String ParseState Declaration
100parseTypeClassDeclaration :: P.Parsec String ParseState Declaration