Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove spurious undefined

Browse source
This commit is contained in:
Joscha 2019-11-21 16:30:51 +00:00
parent bde92704f1
commit 393b253d28
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Mima/Parse/Assembly/Directive.hs
View file

@ -53,7 +53,7 @@ lFlags :: Parser (Set.Set Char)
lFlags = Set.unions <$> some (lexeme flag) lFlags = Set.unions <$> some (lexeme flag)
lDirective :: Parser (Directive Address) lDirective :: Parser (Directive Address)
lDirective = label "assembler directive" $ undefined lDirective = label "assembler directive" $
DReg <$> directive ".reg" lSetRegister DReg <$> directive ".reg" lSetRegister
<|> DOrg <$> directive ".org" (lexeme largeValue) <|> DOrg <$> directive ".org" (lexeme largeValue)
<|> DLit <$> directive ".lit" (lexeme word) <|> DLit <$> directive ".lit" (lexeme word)