From 8865c86aa904243ae91a598327e9dc1768ae8f3a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 27 Sep 2022 22:59:18 +0200
Subject: Separate Network module

---
 src/Test.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'src/Test.hs')

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
-- 
cgit v1.2.3