Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
time fmt act = do
t <- getCurrentTime
finally act $ do
t2 <- getCurrentTime
printf fmt $ show $ fromEnum $ (utctDayTime t2 - utctDayTime t) / 1e9
start = time "method time: %s ms" $ do
threadDelay 1000000
@Time(format="method time: %s ms")time "method time: %s ms" $
Подсчёт времени выполнения метода через аннотацию