small housekeeping tasks

haskell/lib/API.hs

@@ -1,6 +1,6 @@
 
 module API
-  ( P2prAPI(..)
+  ( P2PRCapi(..)
   , MapPortRequest(..)
   , getP2prcAPI
   )
@@ -32,7 +32,7 @@ import Environment  ( cleanEnvironment )
 
 
 
-data P2prAPI = MkP2prAPI
+data P2PRCapi = MkP2PRCapi
   { startServer       :: IOEitherError ProcessHandle
   , execInitConfig    :: IOEitherError P2prcConfig
   , execListServers   :: IOEitherError IPAdressTable
@@ -44,7 +44,7 @@ data MapPortRequest
   = MkMapPortRequest Int String
 
 
-getP2prcAPI :: IOEitherError P2prAPI
+getP2prcAPI :: IOEitherError P2PRCapi
 getP2prcAPI = do
 
   cleanEnvironment
@@ -64,23 +64,23 @@ getP2prcAPI = do
 
       in do
 
-      Right $ MkP2prAPI
+      Right $ MkP2PRCapi
         { startServer = spawnProcP2Prc p2prcCmd [ MkOptAtomic "--s" ]
 
         , execListServers =
           execProcP2PrcParser [ MkOptAtomic "--ls" ] MkEmptyStdInput
 
         , execMapPort =
-          \ (MkMapPortRequest portNumber _) ->
+          \ (MkMapPortRequest portNumber domainName) ->
             execProcP2PrcParser
               [ MkOptTuple
                 ( "--mp"
                 , show portNumber
                 )
-              -- , MkOptTuple -- TODO: add domain parameter
-              --   ( "--dm"
-              --   , domainName
-              --   )
+                , MkOptTuple
+                ( "--dn"
+                , domainName
+                )
               ]
               MkEmptyStdInput
 

haskell/lib/P2Prc.hs

@@ -7,8 +7,8 @@ import System.Process ( terminateProcess )
 import Control.Concurrent ( threadDelay )
 
 import API
-  ( P2prAPI(..)
-  , MapPortRequest(..)
+  ( P2PRCapi(..)
+  , MapPortRequest(MkMapPortRequest)
   , getP2prcAPI
   )
 
@@ -37,13 +37,14 @@ import API
 runP2Prc :: IO ()
 runP2Prc = do
 
-
+  --
+  -- TODO: add quickcheck testing (quickchecking-dynamic)
   --
   -- TODO: Change Standard Library
   -- TODO: add GDTA syntax to data types
+  --
   -- TODO: need monad transformers to refactor the code
   --
-  -- TODO: add quickcheck testing (quickchecking-dynamic)
   --
   -- TODO: parse IO arguments;
     -- TODO: create DSL from the standard input
@@ -68,7 +69,7 @@ runP2Prc = do
   case eitherP2prcAPI of
     (Right p2prcAPI) -> do
       let
-        ( MkP2prAPI
+        ( MkP2PRCapi
           { startServer     = startServer
           , execInitConfig  = execInitConfig
           , execListServers = execListServers