diff options
Diffstat (limited to 'Presence/ServerC.hs')
-rw-r--r-- | Presence/ServerC.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Presence/ServerC.hs b/Presence/ServerC.hs index 3933c812..36e2d7bf 100644 --- a/Presence/ServerC.hs +++ b/Presence/ServerC.hs | |||
@@ -7,6 +7,7 @@ module ServerC | |||
7 | , ConnId(..) | 7 | , ConnId(..) |
8 | , ServerHandle | 8 | , ServerHandle |
9 | , quitListening | 9 | , quitListening |
10 | , dummyServerHandle | ||
10 | ) where | 11 | ) where |
11 | 12 | ||
12 | import Network.Socket as Socket | 13 | import Network.Socket as Socket |
@@ -39,6 +40,7 @@ import Control.Monad.Trans.Class (lift) | |||
39 | import Control.Monad.IO.Class (MonadIO (liftIO)) | 40 | import Control.Monad.IO.Class (MonadIO (liftIO)) |
40 | import qualified Data.ByteString as S (ByteString) | 41 | import qualified Data.ByteString as S (ByteString) |
41 | import System.IO (Handle) | 42 | import System.IO (Handle) |
43 | import Control.Concurrent.MVar (newMVar) | ||
42 | 44 | ||
43 | import ByteStringOperators | 45 | import ByteStringOperators |
44 | import SocketLike | 46 | import SocketLike |
@@ -50,6 +52,11 @@ newtype ConnId = ConnId Int | |||
50 | 52 | ||
51 | newtype ServerHandle = ServerHandle Socket | 53 | newtype ServerHandle = ServerHandle Socket |
52 | 54 | ||
55 | dummyServerHandle = do | ||
56 | mvar <- newMVar Closed | ||
57 | let sock = MkSocket 0 AF_UNSPEC NoSocketType 0 mvar | ||
58 | return (ServerHandle sock) | ||
59 | |||
53 | quitListening :: ServerHandle -> IO () | 60 | quitListening :: ServerHandle -> IO () |
54 | quitListening (ServerHandle socket) = sClose socket | 61 | quitListening (ServerHandle socket) = sClose socket |
55 | 62 | ||