From 61e76eb99c74aa4c0769e2fe7f280b9a4530171d Mon Sep 17 00:00:00 2001 From: joe Date: Thu, 27 Jun 2013 22:06:31 -0400 Subject: Converted to SocketLike and quitListening interfaces. Paving the way for conversion to conduits-based server over HaXml. --- Presence/LocalPeerCred.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Presence/LocalPeerCred.hs') diff --git a/Presence/LocalPeerCred.hs b/Presence/LocalPeerCred.hs index ee1a4a0f..d3b8d189 100644 --- a/Presence/LocalPeerCred.hs +++ b/Presence/LocalPeerCred.hs @@ -14,9 +14,9 @@ import System.IO ( withFile, IOMode(..)) import Data.Maybe import Data.Binary import Data.Bits -import Network.Socket import System.Posix.Types import Debug.Trace +import SocketLike xs ?? n | n < 0 = Nothing [] ?? _ = Nothing -- cgit v1.2.3