fork download
  1. import Data.Traversable
  2.  
  3. main = do
  4. let a = traverse (\x -> if x > 4 then Just x else Nothing) [1..]
  5. print "done"
Success #stdin #stdout 0s 6280KB
stdin
Standard input is empty
stdout
Nothing
"done"