add tests for indent of guard inside case of

itchyny · Aug 30, 2016 · f11d4f7 · f11d4f7
1 parent e19dc84
commit f11d4f7
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 0 deletions.
diff --git a/test/guard/case_guard.in.hs b/test/guard/case_guard.in.hs
@@ -0,0 +1,4 @@
+f x = case x of
+1 -> 0
+y | y < 10 -> 10 - y
+| otherwise -> y
diff --git a/test/guard/case_guard.out.hs b/test/guard/case_guard.out.hs
@@ -0,0 +1,4 @@
+f x = case x of
+           1 -> 0
+           y | y < 10 -> 10 - y
+             | otherwise -> y
diff --git a/test/guard/where_case_guard.in.hs b/test/guard/where_case_guard.in.hs
@@ -0,0 +1,6 @@
+f = g
+where
+g x = case x of
+1 -> 0
+y | y < 10 -> 10 - y
+| otherwise -> y
diff --git a/test/guard/where_case_guard.out.hs b/test/guard/where_case_guard.out.hs
@@ -0,0 +1,6 @@
+f = g
+  where
+    g x = case x of
+               1 -> 0
+               y | y < 10 -> 10 - y
+                 | otherwise -> y