change module exports

haskell/lib/Engine.hs

@@ -43,8 +43,8 @@ import API
 --
 
 
-runP2PRC :: Int -> String -> IO ()
-runP2PRC portNumber domainName = do
+runP2PRC :: MapPortRequest -> IO ()
+runP2PRC (MkMapPortRequest portNumber domainName) = do
 
   --
   -- TODO: add quickcheck testing (quickchecking-dynamic)
@@ -135,13 +135,10 @@ runP2PRC portNumber domainName = do
 
     where
 
-
     exitOnQ :: IO () -> IO ()
-    exitOnQ f = do
-        hSetBuffering stdin NoBuffering
-        c <- getChar
-        when (toLower c /= 'q') $ exitOnQ f
-        f
-
-
+    exitOnQ exitF = do
+      hSetBuffering stdin NoBuffering
+      c <- getChar
+      when (toLower c /= 'q') $ exitOnQ exitF
+      exitF
 

haskell/lib/P2PRC.hs

@@ -1,5 +1,6 @@
 module P2PRC
   ( runP2PRC
+  , MapPortRequest(MkMapPortRequest)
   )
   where
 
@@ -7,3 +8,7 @@ module P2PRC
 import Engine
   ( runP2PRC
   )
+
+import API
+  ( MapPortRequest(MkMapPortRequest)
+  )

haskell/src/Main.hs

@@ -3,9 +3,11 @@ module Main where
 
 import P2PRC
   ( runP2PRC
+  , MapPortRequest(MkMapPortRequest)
   )
 
-
 main :: IO ()
 main =
-  runP2PRC 8080 "jose.akilan.io"
+  runP2PRC
+    ( MkMapPortRequest 8080 "jose.akilan.io"
+    )