Commit c4a75ba9 authored by Erin van der Veen's avatar Erin van der Veen Committed by Camil Staps

Use fromMaybe instead of an if in SimpleTCPServer.icl

parent bf2695e2
implementation module SimpleTCPServer
import StdEnv
import StdMaybe
import Data.Maybe
import System._Posix
import TCPIP
......@@ -16,7 +16,7 @@ serve server w
# (listener, w) = loop listener w
= closeRChannel listener w
where
logger = if (isNothing server.logger) zero (fromJust server.logger)
logger = fromMaybe zero server.logger
loop :: TCP_Listener *World -> (TCP_Listener, *World)
loop li w
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment