Commit bf61906d authored by Michael Hanus's avatar Michael Hanus
Browse files

CPNS demon location adapted to new currytools

parent bc74f76e
......@@ -4,22 +4,23 @@
--- with ports.
--- @author Michael Hanus
--- @version January 2012
--- @version February 2017
--- @category web
module CPNS(registerPort,getPortInfo,unregisterPort,
cpnsStart,cpnsStop,cpnsShow,cpnsAlive,main) where
import Socket
import IO
import ReadShowTerm
import Char
import List(delete,intersperse)
import Time
import System
import Distribution(installDir)
import FilePath((</>))
import IO
import List(delete,intersperse)
import Profile
import ReadShowTerm
import Socket
import System
import Time
-- If we connect to a port with symbolic name pn, we first connect
-- to the CPNS of the host named by pn to get the physical socket
......@@ -295,7 +296,7 @@ cpnsAlive timeout host = catch tryPingCPNS (\_ -> return False)
--- Starts the CPNS demon at localhost if it is not already running:
startCPNSDIfNecessary :: IO ()
startCPNSDIfNecessary = do
system $ "\""++installDir++"/cpns/start\""
system $ installDir </> "currytools" </> "cpns" </> "start"
--- Main function for CPNS demon. Check arguments and execute command.
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