git.iko.soy/typeable/uuid
on master help sign in
Wall cleaner
d419272Antoine Latter
tests/BenchUUID.hs+4−1
compare with master
unifiedsplit
@@ -1,6 +1,10 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE CPP #-}
2
2
3+#if !(MIN_VERSION_bytestring(0,10,0))
4+-- Needed for NFData instance
3import Control.DeepSeq
5import Control.DeepSeq
6+import qualified Data.ByteString.Lazy.Internal as BL
7+#endif
4import Criterion.Main
8import Criterion.Main
5import Data.Char (ord)
9import Data.Char (ord)
6import Data.IORef
10import Data.IORef
@@ -8,7 +12,6 @@ import Data.Maybe (fromJust)
8import Data.Word
12import Data.Word
9import qualified Data.Set as Set
13import qualified Data.Set as Set
10import qualified Data.ByteString.Lazy as BL
14import qualified Data.ByteString.Lazy as BL
11−import qualified Data.ByteString.Lazy.Internal as BL
12import qualified Data.UUID as U
15import qualified Data.UUID as U
13import qualified Data.UUID.V1 as U
16import qualified Data.UUID.V1 as U
14import qualified Data.UUID.V3 as U3
17import qualified Data.UUID.V3 as U3
tests/TestUUID.hs+1−2
@@ -15,10 +15,9 @@ import qualified Data.UUID.V5 as U5
15import qualified Test.HUnit as H
15import qualified Test.HUnit as H
16import Test.HUnit hiding (Test)
16import Test.HUnit hiding (Test)
17import Test.QuickCheck hiding ((.&.))
17import Test.QuickCheck hiding ((.&.))
18−import Test.Framework (defaultMain, Test(..))
18+import Test.Framework (defaultMain, Test)
19import Test.Framework.Providers.HUnit (hUnitTestToTests)
19import Test.Framework.Providers.HUnit (hUnitTestToTests)
20import Test.Framework.Providers.QuickCheck2 (testProperty)
20import Test.Framework.Providers.QuickCheck2 (testProperty)
21−import System.IO
22
21
23
22
24isValidVersion :: Int -> U.UUID -> Bool
23isValidVersion :: Int -> U.UUID -> Bool