diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-10-01 06:11:00 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-10-01 06:11:00 +0400 |
| commit | fbecd1c50e3b2d721b9c0dd7050680f7fef7294e (patch) | |
| tree | 7e9041c0e42ff33f6664d08966b27e4e21f58fc6 /src/Network | |
| parent | 258f21eb490ee3588dd3a1c7316ff41f7f355be7 (diff) | |
Stylefix
Diffstat (limited to 'src/Network')
| -rw-r--r-- | src/Network/KRPC/Protocol.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/KRPC/Protocol.hs b/src/Network/KRPC/Protocol.hs index 2d905f06..108c47c4 100644 --- a/src/Network/KRPC/Protocol.hs +++ b/src/Network/KRPC/Protocol.hs | |||
| @@ -242,9 +242,9 @@ remoteServer :: (MonadBaseControl IO remote, MonadIO remote) | |||
| 242 | remoteServer servAddr action = bracket (liftIO bindServ) (liftIO . sClose) loop | 242 | remoteServer servAddr action = bracket (liftIO bindServ) (liftIO . sClose) loop |
| 243 | where | 243 | where |
| 244 | bindServ = do | 244 | bindServ = do |
| 245 | sock <- socket AF_INET Datagram defaultProtocol | 245 | sock <- socket AF_INET Datagram defaultProtocol |
| 246 | bindSocket sock servAddr | 246 | bindSocket sock servAddr |
| 247 | return sock | 247 | return sock |
| 248 | 248 | ||
| 249 | loop sock = forever $ do | 249 | loop sock = forever $ do |
| 250 | (bs, addr) <- liftIO $ recvFrom sock maxMsgSize | 250 | (bs, addr) <- liftIO $ recvFrom sock maxMsgSize |