hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Support where clauses, let bindings and case expressions in case splitting (fixes #395)

Browse Source
This commit is contained in:
Rob Everest
2014-11-02 00:06:34 +11:00
committed by Daniel Gröber
parent 833d9ce058
commit 56cc237e26
4 changed files with 50 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
test/data/case-split/Vect.hs
View File

@@ -22,3 +22,18 @@ data MyList a = Nil | Cons a (MyList a)
mlAppend :: MyList a -> MyList a -> MyList a
mlAppend x y = _mlAppend_body
mlAppend2 :: MyList a -> MyList a -> MyList a
mlAppend2 x y = case x of
x' -> _mlAppend_body
mlReverse :: MyList a -> MyList a
mlReverse xs = mlReverse' xs Nil
where
mlReverse' :: MyList a -> MyList a -> MyList a
mlReverse' xs' accum = _mlReverse_body
mlReverse2 :: MyList a -> MyList a
mlReverse2 xs = let mlReverse' :: MyList a -> MyList a -> MyList a
mlReverse' xs' accum = _mlReverse_body
in mlReverse' xs Nil