d419272 · typeable/uuid

git.iko.soy/typeable/uuid

Wall cleaner

commitd419272ac8881b8f7cb89df528d05e5bdb7d3ee5 authorAntoine Latter <aslatter@gmail.com> dateSat 19 Oct 2013, 15:09 (13 years ago) parent7e2d0cd

2 files changed+5−3

unifiedsplit

tests/BenchUUID.hs+4−1

@@ -1,6 +1,10 @@

11{-# LANGUAGE CPP #-}

3+#if !(MIN_VERSION_bytestring(0,10,0))

4+-- Needed for NFData instance

35import Control.DeepSeq

6+import qualified Data.ByteString.Lazy.Internal as BL

7+#endif

48import Criterion.Main

59import Data.Char (ord)

610import Data.IORef

@@ -8,7 +12,6 @@ import Data.Maybe (fromJust)

812import Data.Word

913import qualified Data.Set as Set

1014import qualified Data.ByteString.Lazy as BL

11−import qualified Data.ByteString.Lazy.Internal as BL

1215import qualified Data.UUID as U

1316import qualified Data.UUID.V1 as U

1417import qualified Data.UUID.V3 as U3

tests/TestUUID.hs+1−2

@@ -15,10 +15,9 @@ import qualified Data.UUID.V5 as U5

1515import qualified Test.HUnit as H

1616import Test.HUnit hiding (Test)

1717import Test.QuickCheck hiding ((.&.))

18−import Test.Framework (defaultMain, Test(..))

18+import Test.Framework (defaultMain, Test)

1919import Test.Framework.Providers.HUnit (hUnitTestToTests)

2020import Test.Framework.Providers.QuickCheck2 (testProperty)

21−import System.IO

2221

2322

2423isValidVersion :: Int -> U.UUID -> Bool