From 393b253d28c6836cf96423d36bfdb8bfdb55f3b1 Mon Sep 17 00:00:00 2001 From: Joscha Date: Thu, 21 Nov 2019 16:30:51 +0000 Subject: [PATCH] Remove spurious undefined --- 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 537dac2..44908a9 100644 --- a/src/Mima/Parse/Assembly/Directive.hs +++ b/src/Mima/Parse/Assembly/Directive.hs @@ -53,7 +53,7 @@ lFlags :: Parser (Set.Set Char) lFlags = Set.unions <$> some (lexeme flag) lDirective :: Parser (Directive Address) -lDirective = label "assembler directive" $ undefined +lDirective = label "assembler directive" $ DReg <$> directive ".reg" lSetRegister <|> DOrg <$> directive ".org" (lexeme largeValue) <|> DLit <$> directive ".lit" (lexeme word)