Commits

paradoxiology  committed f9d9763

Removed the auto front page redirection upon login

  • Participants
  • Parent commits c02a0a9

Comments (0)

Files changed (1)

File src/Navigation.hs

                                       result <- loginReddit user passwd
                                       case result of
                                           Just userInfo -> liftIO (putStrLn $ "Successfully logged in!\tWelcome back " ++ userName userInfo ++ "!") >>
-                                                           modify (\ navState -> navState{ userInfo = Just userInfo }) >>
-                                                           liftIO (threadDelay 3000) >>       -- wait for a short time
-                                                           execCommand (GotoSubreddit "")     -- go to the front page
+                                                           modify (\ navState -> navState{ userInfo = Just userInfo })
                                           Nothing       -> modify (\ navState -> navState{ userInfo = Nothing }) >>
                                                            liftIO (putStrLn "Failed to login!")