Remove spurious undefined

This commit is contained in:
Joscha 2019-11-21 16:30:51 +00:00
parent bde92704f1
commit 393b253d28

View file

@ -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)