Permalink
Browse files

*. Enhanced Problem 102 visualization. #gc

  • Loading branch information...
1 parent fed8c0c commit 0874eee6132ac125b415c2545edb0134cf06fd5d @dmw committed Apr 19, 2012
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/problem102.hs
View
@@ -140,6 +140,7 @@ handlerIOError e = putStrLn (printf "IOError: %s" $ show e)
>> exitFailure
+
mainGl :: IO ()
mainGl = do [x,y,z] <- getArgs
inp <- readFile x
@@ -156,6 +157,8 @@ mainGl = do [x,y,z] <- getArgs
mainLoop
+
main :: IO ()
main = mainGl `catch` handlerIOError
+

0 comments on commit 0874eee

Please sign in to comment.