https://sources.debian.org/data/main/h/haskell-persistent/2.13.3.5-2/debian/patches/fix-tests-32-bit
Inspired by: https://github.com/yesodweb/persistent/pull/1429

--- a/test/Database/Persist/THSpec.hs
+++ b/test/Database/Persist/THSpec.hs
@@ -25,6 +25,7 @@ module Database.Persist.THSpec where
 
 import Control.Applicative (Const(..))
 import Data.Aeson (decode, encode)
+import Data.Bits (bitSizeMaybe)
 import Data.ByteString.Lazy.Char8 ()
 import Data.Coerce
 import Data.Functor.Identity (Identity(..))
@@ -237,7 +238,10 @@ spec = describe "THSpec" $ do
         it "should have usual haskell name" $ do
             fieldHaskell `shouldBe` FieldNameHS "Id"
         it "should have correct underlying sql type" $ do
-            fieldSqlType `shouldBe` SqlInt64
+            fieldSqlType `shouldBe`
+                if bitSizeMaybe (0 :: Int) <= Just 32
+                    then SqlInt32
+                    else SqlInt64
         it "should have correct haskell type" $ do
             fieldType `shouldBe` FTTypeCon Nothing "Int"
 
</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=9fe7b55ad075bbb415667cc40c515b8935e20353'>refs</a><a class='active' href='/guix/log/gnu/system/uuid.scm'>log</a><a href='/guix/tree/gnu/system/uuid.scm?id=9fe7b55ad075bbb415667cc40c515b8935e20353'>tree</a><a href='/guix/commit/gnu/system/uuid.scm?id=9fe7b55ad075bbb415667cc40c515b8935e20353'>commit</a><a href='/guix/diff/gnu/system/uuid.scm?id=9fe7b55ad075bbb415667cc40c515b8935e20353'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/system/uuid.scm'>
<input type='hidden' name='id' value='9fe7b55ad075bbb415667cc40c515b8935e20353'/><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=9fe7b55ad075bbb415667cc40c515b8935e20353'>root</a>/<a href='/guix/log/gnu?id=9fe7b55ad075bbb415667cc40c515b8935e20353'>gnu</a>/<a href='/guix/log/gnu/system?id=9fe7b55ad075bbb415667cc40c515b8935e20353'>system</a>/<a href='/guix/log/gnu/system/uuid.scm?id=9fe7b55ad075bbb415667cc40c515b8935e20353'>uuid.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/gnu/system/uuid.scm?id=9fe7b55ad075bbb415667cc40c515b8935e20353&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-09-23 18:17:17 +0200'>2021-09-23</span></td><td><a href='/guix/commit/gnu/system/uuid.scm?id=90604348e14913da48327da05113d7da8ae7655a'>uuid: Support XFS.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/uuid.scm (string-&gt;xfs-uuid): New procedure.
(%uuid-parsers, %uuid-printers): Add ‘xfs’ file system type.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-11-07 13:40:46 +0100'>2020-11-07</span></td><td><a href='/guix/commit/gnu/system/uuid.scm?id=e87471dc510bc393e3306fba86f919dc6bf89b7b'>uuid: Add support for bcachefs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/uuid.scm (string-&gt;bcachefs-uuid): New exported procedure.
(%uuid-parsers, %uuid-printers): Add the ‘bcachefs’ file system type.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-07-26 18:35:10 +0200'>2020-07-26</span></td><td><a href='/guix/commit/gnu/system/uuid.scm?id=675e56221e3dfc58cac94bf30835f16a9c41d530'>file-systems: Add NTFS support.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/uuid.scm (%ntfs-endianness): New macro,
(ntfs-uuid-&gt;string): new procedure,
(%ntfs-endianness): new variable,
(string-&gt;ntfs-uuid): new exported procedure,
(%uuid-parsers): add NTFS support,
(%uuid-printers): add NTFS support.
* gnu/build/file-systems.scm (%ntfs-endianness): New macro,
(ntfs-superblock?, read-ntfs-superblock, ntfs-superblock-uuid,
check-ntfs-file-system): new procedure,
(%partition-uuid-readers): add NTFS support,
(check-file-system): add NTFS support.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-06-18 23:24:37 -0400'>2020-06-18</span></td><td><a href='/guix/commit/gnu/system/uuid.scm?id=04a4af6dd4fbfcfc564eac5eafe647b192ba3a8f'>uuid: Prevent a loop on invalid arguments.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/uuid.scm (uuid=?): Use type predicates in the fallback case to
prevent looping on invalid arguments.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-01-03 13:54:13 +0100'>2020-01-03</span></td><td><a href='/guix/commit/gnu/system/uuid.scm?id=43c4d27cdfed5ce98ecd4ce48fcd43e188e5a3aa'>uuid: Add support for JFS.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/uuid.scm (string-&gt;jfs-uuid): New procedure.
(%uuid-parsers, %uuid-printers): Add ‘jfs’ file system type.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>