mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
26 lines
1 KiB
Diff
26 lines
1 KiB
Diff
|
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"
|
||
|
|
|