-- | Just measure how long action takes, discard its result
time_ :: MonadIO m => m a -> m Double
time_ = fmap fst . time
time_ :: MonadIO m => m a -> m Double
time_ = fmap fst . time
time_ = fmap fst . time