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
|
text <- T.readFile filename
|
||||||
case parseProfFile filename text of
|
case parseProfFile filename text of
|
||||||
Left e -> putStrLn e
|
Left e -> putStrLn e
|
||||||
Right f -> do
|
Right f -> void $ defaultMain myApp $ newUiState (profInfoLines f) (profNode f)
|
||||||
print f
|
|
||||||
void $ defaultMain myApp $ newUiState (profInfoLines f) (profNode f)
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue