testsuite/tests/driver/sigof02/Main.hs


1
2
3
4
5
6
7
8
9
10
11

import Map

main = do
    let x = insert 0 "foo"
          . delete 1
          . insert 1 undefined
          . insert (6 :: Int) "foo"
          $ empty
    print (member 1 x)
    print (toList x)
    print x