Permalink
Browse files

Changed free port detector from catch-all to catch IOError.

  • Loading branch information...
1 parent e848353 commit ea218ccecbb25d65ac97d32fcdc260edbe493282 @ttencate committed Jun 12, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 server/Scion/Server/Emacs.hs
@@ -77,7 +77,7 @@ runServer opts =
listenOnOneOf :: [PortID] -> IO Socket
listenOnOneOf (p:ps) = catch
(listenOn p)
- (\ex -> if null ps then throwIO ex else listenOnOneOf ps)
+ (\(ex :: IOError) -> if null ps then throwIO ex else listenOnOneOf ps)
eventLoop :: Socket -> ScionM Bool
eventLoop sock =

0 comments on commit ea218cc

Please sign in to comment.