explicit lhs marks, first step

1 files changed, 7 insertions, 5 deletions

diff --git a/testdata/language-features/guard/guard08.out b/testdata/language-features/guard/guard08.out
index 5d6e6bdc..069c68c4 100644
--- a/testdata/language-features/guard/guard08.out
+++ b/testdata/language-features/guard/guard08.out
@@ -1,11 +1,13 @@
 main is not found
 ------------ desugared source code
 value
-  = case'Bool
-    (\(_ :: _) -> _)
-    (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
-    (_rhs "True")
-    True
+  = _lhs
+    value
+    (case'Bool
+      (\(_ :: _) -> _)
+      (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
+      (_rhs "True")
+      True)
 ------------ core code
 value :: String
 value = _rhs "True"