SuspendAndResumeDemo: remove stale/testing getLine at end of main

This commit is contained in:
Jonathan Daugherty 2015-07-01 09:12:22 -07:00
parent e1a1f90a98
commit 2942514198

View File

@ -53,6 +53,3 @@ theApp =
main :: IO () main :: IO ()
main = do main = do
void $ defaultMain theApp initialState void $ defaultMain theApp initialState
putStrLn "Enter a line:"
s <- getLine
print s