[e cosmetics in MySet.hs
martin.hofmann@uni-bamberg.de**20090126141444] hunk ./src/Data/MySet.hs 13
+import Data.Maybe
+
hunk ./src/Data/MySet.hs 17
-deleteM r rs = 
+deleteM r rs =
hunk ./src/Data/MySet.hs 22
-insertM  r rs   = 
-    case rs of
-        (Just rs') -> return $ insert r rs'
-        Nothing    -> return $ insert r empty
+insertM e = Just . insert e . maybe empty id