@@ -94,7 +94,7 @@ parseImportDeclaration = do
9494parseDeclarationRef :: P.Parsec String ParseState DeclarationRef
9595parseDeclarationRef = ValueRef <$> parseIdent
9696 <|> 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)
9898 return $ maybe (TypeClassRef name) (TypeRef name) dctors
9999
100100parseTypeClassDeclaration :: P.Parsec String ParseState Declaration