Restore compatibility with newer version of base16-bytestring.

Taken from https://raw.githubusercontent.com/archlinux/svntogit-community/packages/trunk/cabal-install-base16-bytestring1.0.patch

diff --git a/Distribution/Client/HashValue.hs b/Distribution/Client/HashValue.hs
index 54b8aee9e..11e647c1c 100644
--- a/Distribution/Client/HashValue.hs
+++ b/Distribution/Client/HashValue.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP          #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE DeriveGeneric      #-}
 module Distribution.Client.HashValue (
@@ -72,10 +73,14 @@ hashFromTUF (Sec.Hash hashstr) =
     --TODO: [code cleanup] either we should get TUF to use raw bytestrings or
     -- perhaps we should also just use a base16 string as the internal rep.
     case Base16.decode (BS.pack hashstr) of
+#if MIN_VERSION_base16_bytestring(1,0,0)
+      Right hash -> HashValue hash
+      Left _ -> error "hashFromTUF: cannot decode base16"
+#else
       (hash, trailing) | not (BS.null hash) && BS.null trailing
         -> HashValue hash
       _ -> error "hashFromTUF: cannot decode base16 hash"
-
+#endif
 
 -- | Truncate a 32 byte SHA256 hash to
 --
efs</a><a class='active' href='/guix/log/gnu/system/examples/bare-bones.tmpl'>log</a><a href='/guix/tree/gnu/system/examples/bare-bones.tmpl?id=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'>tree</a><a href='/guix/commit/gnu/system/examples/bare-bones.tmpl?id=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'>commit</a><a href='/guix/diff/gnu/system/examples/bare-bones.tmpl?id=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/system/examples/bare-bones.tmpl'>
<input type='hidden' name='id' value='39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'/><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=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'>root</a>/<a href='/guix/log/gnu?id=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'>gnu</a>/<a href='/guix/log/gnu/system?id=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'>system</a>/<a href='/guix/log/gnu/system/examples?id=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'>examples</a>/<a href='/guix/log/gnu/system/examples/bare-bones.tmpl?id=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab'>bare-bones.tmpl</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/gnu/system/examples/bare-bones.tmpl?id=39db6489e8e7a6dc0e37c1d23345753a5cdf5cab&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-12-16 23:42:17 -0500'>2022-12-16</span></td><td><a href='/guix/commit/gnu/system/examples/bare-bones.tmpl?id=491bddfa276cc9775adf325c07e5f82638f330e7'>system: examples: Add mode prop line.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/examples/asus-c201.tmpl: Add a mode prop line.
* gnu/system/examples/bare-bones.tmpl: Likewise.
* gnu/system/examples/beaglebone-black.tmpl: Likewise.
* gnu/system/examples/desktop.tmpl: Likewise.
* gnu/system/examples/docker-image.tmpl: Likewise.
* gnu/system/examples/lightweight-desktop.tmpl: Likewise.
* gnu/system/examples/raspberry-pi-64-nfs-root.tmpl: Likewise.
* gnu/system/examples/raspberry-pi-64.tmpl: Likewise.
* gnu/system/examples/vm-image.tmpl: Likewise.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-10-23 02:00:06 +0200'>2022-10-23</span></td><td><a href='/guix/commit/gnu/system/examples/bare-bones.tmpl?id=19f3dbcb4d4261b6d3813d36174b8ca6ac52d2ea'>system: Support bare-bones serial console.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/examples/bare-bones.tmpl (operating-system):
Add a ttyS0 console to kernel-arguments.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/gnu/system/examples/bare-bones.tmpl?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...<span class='msg-tooltip'>The old 'target' field is deprecated; adjust the sources to use the new
'targets' one instead.

* doc/guix-cookbook.texi&lt;target&gt;: Replace by 'targets'.
* gnu/bootloader/grub.scm: Likewise.
* gnu/installer/parted.scm: Likewise.
* gnu/machine/digital-ocean.scm: Likewise.
* gnu/system/examples/asus-c201.tmpl: Likewise
* gnu/system/examples/bare-bones.tmpl: Likewise
* gnu/system/examples/bare-hurd.tmpl: Likewise
* gnu/system/examples/beaglebone-black.tmpl: Likewise
* gnu/system/examples/desktop.tmpl: Likewise
* gnu/system/examples/docker-image.tmpl: Likewise
* gnu/system/examples/lightweight-desktop.tmpl: Likewise
* gnu/system/examples/vm-image.tmpl: Likewise
* gnu/system/examples/yggdrasil.tmpl: Likewise
* gnu/system/hurd.scm: Likewise
* gnu/system/images/hurd.scm: Likewise
* gnu/system/images/novena.scm: Likewise
* gnu/system/images/pine64.scm: Likewise
* gnu/system/images/pinebook-pro.scm: Likewise
* gnu/system/images/rock64.scm: Likewise
* gnu/system/install.scm: Likewise
* gnu/system/vm.scm: Likewise
* gnu/tests.scm: Likewise
* gnu/tests/ganeti.scm: Likewise
* gnu/tests/install.scm: Likewise
* gnu/tests/nfs.scm: Likewise
* gnu/tests/telephony.scm: Likewise
* tests/boot-parameters.scm: Likewise
* tests/system.scm: Likewise
</span></span></td><td>Maxim Cournoyer</td></tr>