fix bug

uuhan · Oct 8, 2017 · cae1c46 · cae1c46
1 parent d9ec4b0
commit cae1c46
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Main.hs b/Main.hs
@@ -51,9 +51,10 @@ main = do
     let Story{..} = stories !! cn
 
     case r of
-      Left err -> printStories stories >> printError err
-      Right _  -> printTitle title >> printStories stories
+      Left err -> printError err
+      Right _  -> printTitle title
 
+    printStories stories
   where
     printError :: SomeException -> IO ()
     printError err = do