Commit f27d6108023484168cb9e52f1839e55664a11ec2
-
- Peter Simons (Committer)
-
- Peter Simons <simons @cr…p.tyo> (Author)
- Diff rendering mode:
- inline
- side by side
tutorial.lhs
(4 / 2)
| 325 | 325 | > then return r | |
| 326 | 326 | > else do yell (Msg (msg sa)) | |
| 327 | 327 | > say 5 5 4 "no SMTP service here" | |
| 328 | > Just (SockAddrInet6 _ _ _ _) -> return r | ||
| 328 | 329 | > where | |
| 329 | 330 | > msg = showString "blacklist: refuse peer " . show | |
| 330 | 331 | ||
| … | … | ||
| 336 | 336 | > ban = do | |
| 337 | 337 | > peer <- getPeerAddr | |
| 338 | 338 | > case peer of | |
| 339 | > Nothing -> return () | ||
| 340 | > Just (SockAddrUnix _) -> return () | ||
| 339 | > Nothing -> return () | ||
| 340 | > Just (SockAddrUnix _) -> return () | ||
| 341 | > Just (SockAddrInet6 _ _ _ _) -> return () | ||
| 341 | 342 | > Just sa@(SockAddrInet _ a) -> do | |
| 342 | 343 | > yell (Msg (msg sa)) | |
| 343 | 344 | > now <- liftIO getClockTime |
