idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-25 20:51:43 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #2827 from Z-snails/clock

Browse Source 
export `{to,from}Nano` in `System.Clock`
This commit is contained in:
Zoe Stafford 2022-12-21 17:22:22 +00:00 committed by GitHub
commit 45fc038300
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libs/base/System/Clock.idr
View File

@ -232,6 +232,7 @@ clockTime clockType with (isClockMandatory clockType)
else pure Nothing else pure Nothing
||| Convert the time in the given clock to nanoseconds. ||| Convert the time in the given clock to nanoseconds.
public export
toNano : Clock type -> Integer toNano : Clock type -> Integer
toNano (MkClock seconds nanoseconds) = toNano (MkClock seconds nanoseconds) =
let scale = 1000000000 let scale = 1000000000
@ -240,6 +241,7 @@ toNano (MkClock seconds nanoseconds) =
||| Convert some time in nanoseconds to a `Clock` containing that time. ||| Convert some time in nanoseconds to a `Clock` containing that time.
||| |||
||| @ n the time in nanoseconds ||| @ n the time in nanoseconds
public export
fromNano : {type : ClockType} -> (n : Integer) -> Clock type fromNano : {type : ClockType} -> (n : Integer) -> Clock type
fromNano n = fromNano n =
let scale = 1000000000 let scale = 1000000000
@ -248,9 +250,11 @@ fromNano n =
in MkClock seconds nanoseconds in MkClock seconds nanoseconds
||| Compute difference between two clocks of the same type. ||| Compute difference between two clocks of the same type.
||| @ end the end time
||| @ start the start time
public export public export
timeDifference : Clock type -> Clock type -> Clock Duration timeDifference : Clock type -> Clock type -> Clock Duration
timeDifference clock duration = fromNano $ toNano clock - toNano duration timeDifference end start = fromNano $ toNano end - toNano start
||| Add a duration to a clock value. ||| Add a duration to a clock value.
public export public export