fix build failure on windows
authorJoey Hess <joeyh@joeyh.name>
Wed, 20 Oct 2021 19:12:12 +0000 (15:12 -0400)
committerJoey Hess <joeyh@joeyh.name>
Wed, 20 Oct 2021 19:12:12 +0000 (15:12 -0400)
Utility.QuickCheck also has an instance Arbitrary FileID.
It seems that this problem used to be ignored by ghc but now it notices
it.

Utility/InodeCache.hs

index 266b739735e60d292007749031a6d363938ff178..b697ab34ede0e07f7c3687e7c57b46565645e870 100644 (file)
@@ -300,11 +300,6 @@ instance Arbitrary MTime where
                 , (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 c = case readInodeCache (showInodeCache c) of
        Nothing -> False