diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-24 22:29:42 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-24 22:46:29 +0200 |
| commit | 24f39540d34c819c7870adce9f363af704c7cda7 (patch) | |
| tree | 9caf2c06377651f98b06174f5e5caf452319a8e6 /src/Parser.hs | |
| parent | a44406e96d17790a82708b36f8214b4b58d44ac6 (diff) | |
Data type for fully-qualified test name
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index c94e1e8..928dd88 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -44,8 +44,10 @@ parseTestDefinition = label "test definition" $ toplevel ToplevelTest $ do { testContext = SomeExpr $ varExpr SourceLineBuiltin rootNetworkVar } href <- L.indentLevel - testName <- header - testModuleName <- gets testCurrentModuleName + testNameBase <- header + testNameModule <- gets testCurrentModuleName + let testName = TestName {..} + osymbol ":" <* eol <* scn ref <- L.indentGuard scn GT href |