@@ -72,9 +72,9 @@ filename = try $ (token $ stringLiteral <|> (fst <$> identifier)) <?> "filename"
73pClause :: PParser ()
73pClause :: PParser ()
74pClause = do reserved "executable"; lchar '=';
74pClause = do reserved "executable"; lchar '=';
75− exec <- fst <$> iName []
75+ exec <- filename
77− put (st { execout = Just (show exec) })
77+ put (st { execout = Just exec })
78 <|> do reserved "main"; lchar '=';
78 <|> do reserved "main"; lchar '=';
79 main <- fst <$> iName []
79 main <- fst <$> iName []