Separate Network module

1 files changed, 1 insertions, 12 deletions

diff --git a/src/Test.hs b/src/Test.hs
index 8db7552..41649ef 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -3,9 +3,6 @@ module Test (
     TestStep(..),
     SourceLine(..),
 
-    ProcName(..), textProcName, unpackProcName,
-    NodeName(..), textNodeName, unpackNodeName,
-
     MonadEval(..),
     VarName(..), textVarName, unpackVarName,
     ExprType(..),
@@ -25,6 +22,7 @@ import Data.Typeable
 import Text.Regex.TDFA
 import Text.Regex.TDFA.Text
 
+import Network
 import Process
 import Util
 
@@ -42,15 +40,6 @@ data TestStep = forall a. ExprType a => Let SourceLine VarName (Expr a) [TestSte
 
 newtype SourceLine = SourceLine Text
 
-newtype NodeName = NodeName Text
-    deriving (Eq, Ord)
-
-textNodeName :: NodeName -> Text
-textNodeName (NodeName name) = name
-
-unpackNodeName :: NodeName -> String
-unpackNodeName (NodeName tname) = T.unpack tname
-
 
 class MonadFail m => MonadEval m where
   lookupVar :: VarName -> m SomeVarValue