Спрашиваем у arbtt какой период времени мы спали в последний раз: ‰ ghc -e 'import Data.Time.Format' -e 'import Data.Time.Clock.POSIX' -e "$(arbtt-dump | sed -n -e 's/\(.*[0-9]*[0-9][0-9][0-9][0-9]\)[0-9][0-9][0-9]ms inactive):/\1/p' | tail -n 1 | sed -e 's/\([^ ]* [^ ]*\) (\([0-9]*\)$/let end = fromJust $ parseTimeM True defaultTimeLocale "%F %T" "\1" in let start = posixSecondsToUTCTime $ (utcTimeToPOSIXSeconds $ end) - \2 in putStrLn $ "start: " ++ formatTime defaultTimeLocale "%F %T" start ++ "; end: \1"/')" start: 2018-11-11 01:21:34; end: 2018-11-11 01:57:52