Don't print the parsed node
This commit is contained in:
parent
dc9353a374
commit
5d88d17099
1 changed files with 1 additions and 3 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue