diff options
| author | joe <joe@jerkface.net> | 2013-06-26 02:54:08 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-06-26 02:54:08 -0400 |
| commit | b0f6ac7137db6324d378a27ce46d8186b60fe9ca (patch) | |
| tree | 53dc8528d304f32b721f138265431aa7372462a2 /Presence/AdaptServer.hs | |
| parent | 46010b91c762fcba786e3a8c68e4445dc16b152f (diff) | |
Send remote presence to clients.
Implmented -4 switch to select ipv4, otherwise ipv6
Diffstat (limited to 'Presence/AdaptServer.hs')
| -rw-r--r-- | Presence/AdaptServer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/AdaptServer.hs b/Presence/AdaptServer.hs index eca4cb1e..dd453ba9 100644 --- a/Presence/AdaptServer.hs +++ b/Presence/AdaptServer.hs | |||
| @@ -15,7 +15,7 @@ adaptStartCon start sock st = do | |||
| 15 | return (HCons rsRef st') | 15 | return (HCons rsRef st') |
| 16 | 16 | ||
| 17 | adaptDoCon showlex (dropTill,lex,parse) g st bs cont = do | 17 | adaptDoCon showlex (dropTill,lex,parse) g st bs cont = do |
| 18 | -- putStrLn $ "packet: " ++ show bs | 18 | putStrLn $ "packet: " ++ show bs |
| 19 | let (HCons rsRef st') = st | 19 | let (HCons rsRef st') = st |
| 20 | rs <- readIORef rsRef | 20 | rs <- readIORef rsRef |
| 21 | 21 | ||