equal
deleted
inserted
replaced
202 |
202 |
203 |
203 |
204 Exception.bracket |
204 Exception.bracket |
205 setupConnection |
205 setupConnection |
206 (\s -> noticeM "Core" "Shutting down" >> sClose s) |
206 (\s -> noticeM "Core" "Shutting down" >> sClose s) |
207 (session login password d exeFullname dataPrefix) |
207 (session login password (d ++ "/.hedgewars") exeFullname dataPrefix) |
208 where |
208 where |
209 setupConnection = do |
209 setupConnection = do |
210 noticeM "Core" "Connecting to the server..." |
210 noticeM "Core" "Connecting to the server..." |
211 |
211 |
212 proto <- getProtocolNumber "tcp" |
212 proto <- getProtocolNumber "tcp" |