From 618b54f521191811db4c7247d22be150ce89af6a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Mon, 15 Nov 2021 21:42:09 +0100 Subject: Separate module for output handling --- src/Test.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'src/Test.hs') diff --git a/src/Test.hs b/src/Test.hs index 8136afb..83ffac5 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -2,8 +2,8 @@ module Test ( Test(..), TestStep(..), - ProcName(..), unpackProcName, - NodeName(..), unpackNodeName, + ProcName(..), textProcName, unpackProcName, + NodeName(..), textNodeName, unpackNodeName, ) where import Data.Text (Text) @@ -24,11 +24,17 @@ data TestStep = Spawn ProcName NodeName 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) +textNodeName :: NodeName -> Text +textNodeName (NodeName name) = name + unpackNodeName :: NodeName -> String unpackNodeName (NodeName tname) = T.unpack tname -- cgit v1.2.3