RosettaCodeData/Task/Null-object/Haskell/null-object-3.hs

case thing of
 Nothing -> "It's Nothing. Or null, whatever."
 Just v  -> "It's not Nothing; it is " ++ show v ++ "."