when debug (putStrLn "Debugging")
>>> whenSet (Set [1,2,3]) (++ [4,5,6]) :: [Int] [1,2,3,4,5,6] >>> whenSet Unset (++ [4,5,6]) :: [Int] []