Create empty dump files when there was nothing to dump
[ghc.git] / testsuite / tests / driver / sigof02 / Double.hs
1 import Map
2 import MapAsSet
3
4 main = do
5 let x = insert 0 "foo"
6 . delete 1
7 . insert 1 undefined
8 . insert (6 :: Int) "foo"
9 $ empty
10 print (member 1 x)
11 print (keysSet x)
12 print (toList x)
13 print x