From 8372e801ef062223756db69818a7b60cfd9bb066 Mon Sep 17 00:00:00 2001
From: amesgen <amesgen@amesgen.de>
Date: Tue, 8 Aug 2023 23:36:45 +0200
Subject: [PATCH] Fix `RealFrac Seconds` instance

---
 System/Clock/Seconds.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/Clock/Seconds.hs b/System/Clock/Seconds.hs
index a9a1c78..f7457cb 100644
--- a/System/Clock/Seconds.hs
+++ b/System/Clock/Seconds.hs
@@ -50,7 +50,7 @@ instance Fractional Seconds where
 
 instance RealFrac Seconds where
   properFraction (Seconds (TimeSpec s ns))
-    | s >= 0 = (fromIntegral s, Seconds $ TimeSpec 0 ns)
+    | s >= 0 || ns == 0 = (fromIntegral s, Seconds $ TimeSpec 0 ns)
     | otherwise = (fromIntegral (s+1), Seconds $ TimeSpec (-1) ns)
 
 -- | The 'getTime' function shall return the current value for the
-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=23386c12dcf9766149358748eda9b12a5138e234'>refs</a><a class='active' href='/guix/log/tests/challenge.scm'>log</a><a href='/guix/tree/tests/challenge.scm?id=23386c12dcf9766149358748eda9b12a5138e234'>tree</a><a href='/guix/commit/tests/challenge.scm?id=23386c12dcf9766149358748eda9b12a5138e234'>commit</a><a href='/guix/diff/tests/challenge.scm?id=23386c12dcf9766149358748eda9b12a5138e234'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/challenge.scm'>
<input type='hidden' name='id' value='23386c12dcf9766149358748eda9b12a5138e234'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=23386c12dcf9766149358748eda9b12a5138e234'>root</a>/<a href='/guix/log/tests?id=23386c12dcf9766149358748eda9b12a5138e234'>tests</a>/<a href='/guix/log/tests/challenge.scm?id=23386c12dcf9766149358748eda9b12a5138e234'>challenge.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/challenge.scm?id=23386c12dcf9766149358748eda9b12a5138e234&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-05-22 01:29:39 +0200'>2020-05-22</span></td><td><a href='/guix/commit/tests/challenge.scm?id=ce0be5675b702b2ff89aed1772ebb42af4150243'>packages: Introduce &lt;content-hash&gt; and use it in &lt;origin&gt;.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/packages.scm (&lt;content-hash&gt;): New record type.
(define-content-hash-constructor, build-content-hash)
(content-hash): New macros.
(print-content-hash): New procedure.
(&lt;origin&gt;): Rename constructor to '%origin'.
[sha256]: Remove field.
[hash]: New field.  Adjust users.
(origin-compatibility-helper, origin): New macros.
(origin-sha256): New deprecated procedure.
(origin-&gt;derivation): Adjust accordingly.
* tests/packages.scm ("package-source-derivation, origin, sha512"): New
test.
* guix/tests.scm: Hide (gcrypt hash) 'sha256' for proper syntax
matching.
* tests/challenge.scm: Add #:prefix for (gcrypt hash) and adjust users.
* tests/derivations.scm: Likewise.
* tests/store.scm: Likewise.
* tests/graph.scm ("bag DAG, including origins"): Provide 'sha256' field
with the right length.
* gnu/packages/aspell.scm (aspell-dictionary)
(aspell-dict-ca, aspell-dict-it): Use 'hash' and 'content-hash' for
proper syntax matching.
* gnu/packages/bash.scm (bash-patch): Rename 'sha256' to 'sha256-bv'.
* gnu/packages/bootstrap.scm (bootstrap-executable): Rename 'sha256' to 'bv'.
* gnu/packages/readline.scm (readline-patch): Likewise.
* gnu/packages/virtualization.scm (qemu-patch): Rename 'sha256' to
'sha256-bv'.
* guix/import/utils.scm: Hide (gcrypt hash) 'sha256'.
</span></span></td><td>Ludovic Courtès</td></tr>