///////////////////////////////////////////////
/// This code is based on the Haskell version,
/// see that for documentation.
///////////////////////////////////////////////
This code is based on the Haskell version,
see that for documentation.
This code is based on the Haskell version see that for documentation .
fn current_time() -> Instant {
    Instant {
        secs: std::time::SystemTime::now()
            .duration_since(std::time::UNIX_EPOCH)
            .unwrap()
            .as_secs_f64(),
    }
}
fn current_time ( ) -> Instant { Instant { secs : std :: time :: SystemTime :: now ( ) . duration_since ( std :: time :: UNIX_EPOCH ) . unwrap ( ) . as_secs_f64 ( ) , } }
This code is based on the Haskell version,
see that for documentation.
This code is based on the Haskell version see that for documentation .