equal
deleted
inserted
replaced
169 updateGlobalLogger "Check" (setLevel DEBUG) |
169 updateGlobalLogger "Check" (setLevel DEBUG) |
170 updateGlobalLogger "Engine" (setLevel DEBUG) |
170 updateGlobalLogger "Engine" (setLevel DEBUG) |
171 |
171 |
172 Right (login, password) <- runErrorT $ do |
172 Right (login, password) <- runErrorT $ do |
173 d <- liftIO $ getHomeDirectory |
173 d <- liftIO $ getHomeDirectory |
174 conf <- join . liftIO . CF.readfile CF.emptyCP $ d ++ "/.hedgewars/hedgewars.ini" |
174 conf <- join . liftIO . CF.readfile CF.emptyCP $ d ++ "/.hedgewars/settings.ini" |
175 l <- CF.get conf "net" "nick" |
175 l <- CF.get conf "net" "nick" |
176 p <- CF.get conf "net" "passwordhash" |
176 p <- CF.get conf "net" "passwordhash" |
177 return (B.pack l, B.pack p) |
177 return (B.pack l, B.pack p) |
178 |
178 |
179 |
179 |