diff options
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/Test.hs b/src/Test.hs index 836489c..d0f1e45 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -3,7 +3,7 @@ module Test ( Test(..), TestStep(..), TestBlock(..), - SourceLine(..), + SourceLine(..), textSourceLine, MonadEval(..), VarName(..), TypedVarName(..), textVarName, unpackVarName, @@ -79,7 +79,13 @@ data TestStep | PacketLoss Scientific Node TestBlock | Wait -newtype SourceLine = SourceLine Text +data SourceLine + = SourceLine Text + | SourceLineBuiltin + +textSourceLine :: SourceLine -> Text +textSourceLine (SourceLine text) = text +textSourceLine SourceLineBuiltin = "<builtin>" class MonadFail m => MonadEval m where |