mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build failure on windows

Browse source 
Utility.QuickCheck also has an instance Arbitrary FileID.
It seems that this problem used to be ignored by ghc but now it notices
it.
This commit is contained in:
Joey Hess 2021-10-20 15:12:12 -04:00
parent f3e33889dd
commit d3bea30a6b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Utility/InodeCache.hs
View file

@ -300,11 +300,6 @@ instance Arbitrary MTime where
, (50, MTimeHighRes <$> arbitrary) , (50, MTimeHighRes <$> arbitrary)
] ]
#ifdef mingw32_HOST_OS
instance Arbitrary FileID where
arbitrary = fromIntegral <$> (arbitrary :: Gen Word64)
#endif
prop_read_show_inodecache :: InodeCache -> Bool prop_read_show_inodecache :: InodeCache -> Bool
prop_read_show_inodecache c = case readInodeCache (showInodeCache c) of prop_read_show_inodecache c = case readInodeCache (showInodeCache c) of
Nothing -> False Nothing -> False