Separate constructors for internal process names

1 files changed, 2 insertions, 9 deletions

diff --git a/src/Test.hs b/src/Test.hs
index 4988098..465b424 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -11,6 +11,8 @@ import qualified Data.Text as T
 
 import Text.Regex.TDFA
 
+import Process
+
 data Test = Test
     { testName :: Text
     , testSteps :: [TestStep]
@@ -21,15 +23,6 @@ data TestStep = Spawn ProcName NodeName
               | Expect ProcName Regex Text
               | Wait
 
-newtype ProcName = ProcName Text
-    deriving (Eq, Ord)
-
-textProcName :: ProcName -> Text
-textProcName (ProcName name) = name
-
-unpackProcName :: ProcName -> String
-unpackProcName (ProcName tname) = T.unpack tname
-
 newtype NodeName = NodeName Text
     deriving (Eq, Ord)