diff options
Diffstat (limited to 'testsuite/tests/typecheck/should_run/tcrun029.hs')
| -rw-r--r-- | testsuite/tests/typecheck/should_run/tcrun029.hs | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/testsuite/tests/typecheck/should_run/tcrun029.hs b/testsuite/tests/typecheck/should_run/tcrun029.hs index 55071be483..e1d55051c5 100644 --- a/testsuite/tests/typecheck/should_run/tcrun029.hs +++ b/testsuite/tests/typecheck/should_run/tcrun029.hs @@ -7,23 +7,23 @@ module Main where -data Color = Red - | Black - deriving Show +data Color = Red + | Black + deriving Show -data Ord k => Tree k d = None - | Node{color::Color, - key::k, - item::d, - left::(Tree k d), - right::(Tree k d)} - deriving Show +data Ord k => Tree k d = None + | Node{color::Color, + key::k, + item::d, + left::(Tree k d), + right::(Tree k d)} + deriving Show insert k i t = (insert2 t) {color=Black} where insert2 None = Node{color=Red, - key=k, - item=i, - left=None, - right=None} + key=k, + item=i, + left=None, + right=None} -main = print (insert 1 2 None)
\ No newline at end of file +main = print (insert 1 2 None) |