Use anyM not fmap any . mapM. Silly.