Don't print the parsed node

This commit is contained in:
Joscha 2020-03-01 00:33:18 +00:00
parent dc9353a374
commit 5d88d17099

View file

@ -49,6 +49,4 @@ main = do
text <- T.readFile filename
case parseProfFile filename text of
Left e -> putStrLn e
Right f -> do
print f
void $ defaultMain myApp $ newUiState (profInfoLines f) (profNode f)
Right f -> void $ defaultMain myApp $ newUiState (profInfoLines f) (profNode f)