summaryrefslogtreecommitdiff
path: root/src/Test.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Test.hs')
-rw-r--r--src/Test.hs13
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