From 396f07cdf11a2a0edb609e1adca02298b7e072f2 Mon Sep 17 00:00:00 2001 From: Joscha Date: Thu, 21 Nov 2019 18:25:33 +0000 Subject: [PATCH] Make register names case insensitive --- src/Mima/Parse/Assembly/Directive.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Mima/Parse/Assembly/Directive.hs b/src/Mima/Parse/Assembly/Directive.hs index 44908a9..62bbcd0 100644 --- a/src/Mima/Parse/Assembly/Directive.hs +++ b/src/Mima/Parse/Assembly/Directive.hs @@ -40,7 +40,7 @@ lSetRegister = <|> SetSP <$> sepBySpace "sp" address <|> SetFP <$> sepBySpace "fp" address where - sepBySpace name parser = symbol name *> lSpace *> lexeme parser + sepBySpace name parser = symbol' name *> lSpace *> lexeme parser lWordArray :: Parser [MimaWord] lWordArray = open *> (word `sepBy` comma) <* close