I noticed that the results can be a bit suprising sometimes. See if you can predict the answers to these (in ghci):
*SameType> same Nothing (Just "xyzzy")And of course, the case with the integers lifts right up:
False
*SameType> same (Nothing :: Maybe String) (Just "xyzzy")
True
*SameType> same (Just 1) (Just 1)
False