diff options
Diffstat (limited to 'ghc/compiler/tests/deSugar/ds001.hs')
-rw-r--r-- | ghc/compiler/tests/deSugar/ds001.hs | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/ghc/compiler/tests/deSugar/ds001.hs b/ghc/compiler/tests/deSugar/ds001.hs new file mode 100644 index 0000000000..0358f2022e --- /dev/null +++ b/ghc/compiler/tests/deSugar/ds001.hs @@ -0,0 +1,25 @@ +--!!! ds001 -- simple function and pattern bindings +-- +-- this tests ultra-simple function and pattern bindings (no patterns) + +module Test where + +-- simple function bindings + +f x = x + +g x y z = f z + +j w x y z = g w x z + +h x y = f y + where + f a b = a + +-- simple pattern bindings + +a = b + +b = f + +c = c |