Хабр Курсы для всех
РЕКЛАМА
Большая витрина: от крупнейших школ до частных авторов. Сравнивайте по цене, длительности, формату и выбирайте самый подходящий курс!
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" $
Подсчёт времени выполнения метода через аннотацию