Oops: Control.Monad.Trans.Decycle.visit did not visit