From 45e899cb3091ac75000f6848d4752cbf4b1aa040 Mon Sep 17 00:00:00 2001 From: John Hodge Date: Mon, 3 Oct 2016 08:19:44 +0800 Subject: HIR+AST - Handle bytestring patterns --- src/parse/pattern.cpp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/parse') diff --git a/src/parse/pattern.cpp b/src/parse/pattern.cpp index 3adce90d..13b94753 100644 --- a/src/parse/pattern.cpp +++ b/src/parse/pattern.cpp @@ -230,8 +230,7 @@ AST::Pattern Parse_PatternReal1(TokenStream& lex, bool is_refutable) case TOK_STRING: return AST::Pattern( AST::Pattern::TagValue(), AST::Pattern::Value::make_String( mv$(tok.str()) ) ); case TOK_BYTESTRING: - // TODO: Differentiate byte and UTF-8 strings - return AST::Pattern( AST::Pattern::TagValue(), AST::Pattern::Value::make_String( mv$(tok.str()) ) ); + return AST::Pattern( AST::Pattern::TagValue(), AST::Pattern::Value::make_ByteString({ mv$(tok.str()) }) ); case TOK_PAREN_OPEN: return AST::Pattern( AST::Pattern::TagTuple(), Parse_PatternTuple(lex, is_refutable) ); case TOK_SQUARE_OPEN: -- cgit v1.2.3