Commit 7beb3e10 authored by bbr's avatar bbr
Browse files

Last change in CPNS

two corrections for encapsulation
parent 69a1054e
......@@ -91,12 +91,11 @@ cpnsServer regs socket = do
--putStrLn $ "Connection from "++chost
serveRequest chost stream
where
-- somehow the local host is called "localhost" in kics
doIfLocalHost rhost action = action
{-if take 8 rhost == "127.0.0."
doIfLocalHost rhost action =
if rhost=="localhost" || take 8 rhost == "127.0.0."
then action
else do putStrLn $ "Illegal request received from host: " ++ rhost
cpnsServer regs socket-}
cpnsServer regs socket
serveRequest rhost h = do
msg <- readMsgLine h
......
......@@ -211,6 +211,7 @@ st x s = transVal (hnfCTC (\ x _ -> x) x s)
if isCovered ref
then C_SearchTreeOr (uncover ref) (map (flip st s) (branches x))
else C_Or (fromHaskellList (map transVal (branches x)))
Free -> C_Value x
-----------------------------
-- the general question mark
......
......@@ -70,7 +70,7 @@ prim_identicalVar x y _ = case (consKind x,consKind y) of
_ -> C_False
prim_showAnyTerm _ t = toCurry (show t)
prim_showAnyTerm t _ = toCurry (show t)
prim_showAnyQTerm = error "ExternalFunctionsUnsafe.prim_showAnyQTerm"
......
Supports Markdown
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