From 1034a4c0b3a8e1aaa4d304035276ce0bdc7d9b20 Mon Sep 17 00:00:00 2001
From: xecarlox94 <jf94.uk@gmail.com>
Date: Sun, 10 Nov 2024 19:33:39 +0000
Subject: [PATCH] change module exports

---
 haskell/lib/Engine.hs | 17 +++++++----------
 haskell/lib/P2PRC.hs  |  5 +++++
 haskell/src/Main.hs   |  6 ++++--
 3 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/haskell/lib/Engine.hs b/haskell/lib/Engine.hs
index 51562a1..17f748f 100644
--- a/haskell/lib/Engine.hs
+++ b/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
 
diff --git a/haskell/lib/P2PRC.hs b/haskell/lib/P2PRC.hs
index a5aaad4..86b9207 100644
--- a/haskell/lib/P2PRC.hs
+++ b/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)
+  )
diff --git a/haskell/src/Main.hs b/haskell/src/Main.hs
index cfe4a4c..3f691f8 100644
--- a/haskell/src/Main.hs
+++ b/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"
+    )