equal
deleted
inserted
replaced
151 debugM "Network" $ "Recv: " ++ show p |
151 debugM "Network" $ "Recv: " ++ show p |
152 onPacket coreChan p |
152 onPacket coreChan p |
153 CheckFailed msg -> do |
153 CheckFailed msg -> do |
154 warningM "Check" "Check failed" |
154 warningM "Check" "Check failed" |
155 answer ["CHECKED", "FAIL", msg] |
155 answer ["CHECKED", "FAIL", msg] |
|
156 threadDelay 1500000 |
156 answer ["READY"] |
157 answer ["READY"] |
157 CheckSuccess msgs -> do |
158 CheckSuccess msgs -> do |
158 warningM "Check" "Check succeeded" |
159 warningM "Check" "Check succeeded" |
159 answer ("CHECKED" : "OK" : msgs) |
160 answer ("CHECKED" : "OK" : msgs) |
|
161 threadDelay 1500000 |
160 answer ["READY"] |
162 answer ["READY"] |
161 where |
163 where |
162 answer :: [B.ByteString] -> IO () |
164 answer :: [B.ByteString] -> IO () |
163 answer p = do |
165 answer p = do |
164 debugM "Network" $ "Send: " ++ show p |
166 debugM "Network" $ "Send: " ++ show p |
174 onPacket _ ("BYE" : xs) = error $ show xs |
176 onPacket _ ("BYE" : xs) = error $ show xs |
175 onPacket _ _ = return () |
177 onPacket _ _ = return () |
176 |
178 |
177 |
179 |
178 main :: IO () |
180 main :: IO () |
179 main = withSocketsDo $ do |
181 main = withSocketsDo . forever $ do |
180 #if !defined(mingw32_HOST_OS) |
182 #if !defined(mingw32_HOST_OS) |
181 installHandler sigPIPE Ignore Nothing |
183 installHandler sigPIPE Ignore Nothing |
182 installHandler sigCHLD Ignore Nothing |
184 installHandler sigCHLD Ignore Nothing |
183 #endif |
185 #endif |
184 |
186 |