[commit: packages/binary] master: Remove commented out code, and style imports. (5e9a93c)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/binary

On branch  : master
Link       : http://git.haskell.org/packages/binary.git/commitdiff/5e9a93c817c44a377fe8f87361017cc88f7eeec1

>---------------------------------------------------------------

commit 5e9a93c817c44a377fe8f87361017cc88f7eeec1
Author: Lennart Kolmodin <kolmodin at gmail.com>
Date:   Thu Mar 20 22:26:41 2014 +0400

    Remove commented out code, and style imports.


>---------------------------------------------------------------

5e9a93c817c44a377fe8f87361017cc88f7eeec1
 tests/Action.hs | 25 ++++++++++----------
 tests/QC.hs     | 71 ++++++++++++++++++---------------------------------------
 2 files changed, 34 insertions(+), 62 deletions(-)

diff --git a/tests/Action.hs b/tests/Action.hs
index 673eb3e..5981b6b 100644
--- a/tests/Action.hs
+++ b/tests/Action.hs
@@ -1,19 +1,18 @@
 {-# LANGUAGE BangPatterns #-}
 module Action where
 
-import Data.List (intersperse)
-import Control.Applicative
-import Control.Monad
-import Test.Framework
-import Test.Framework.Providers.QuickCheck2
-import Test.QuickCheck
-
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as L
-
-import qualified Data.Binary.Get as Binary
-
-import Arbitrary()
+import           Control.Applicative
+import           Control.Monad
+import qualified Data.ByteString                      as B
+import qualified Data.ByteString.Lazy                 as L
+import           Data.List                            (intersperse)
+
+import           Test.Framework
+import           Test.Framework.Providers.QuickCheck2
+import           Test.QuickCheck
+
+import           Arbitrary                            ()
+import qualified Data.Binary.Get                      as Binary
 
 tests :: [Test]
 tests = [ testProperty "action" prop_action
diff --git a/tests/QC.hs b/tests/QC.hs
index 30addd3..fbaded1 100644
--- a/tests/QC.hs
+++ b/tests/QC.hs
@@ -1,46 +1,26 @@
 {-# LANGUAGE ScopedTypeVariables #-}
-module Main where
-
-import Data.Binary
-import Data.Binary.Put
-import Data.Binary.Get
-
-import Control.Applicative
-import Control.Monad (unless)
-
-import qualified Data.ByteString as B
--- import qualified Data.ByteString.Internal as B
--- import qualified Data.ByteString.Unsafe as B
-import qualified Data.ByteString.Lazy as L
-import qualified Data.ByteString.Lazy.Internal as L
--- import qualified Data.Map as Map
--- import qualified Data.Set as Set
--- import qualified Data.IntMap as IntMap
--- import qualified Data.IntSet as IntSet
-
--- import Data.Array (Array)
--- import Data.Array.IArray
--- import Data.Array.Unboxed (UArray)
-
--- import Data.Word
-import Data.Int
-import Data.Ratio
-
-import Control.Exception as C (catch,evaluate,SomeException)
--- import Control.Monad
--- import System.Environment
--- import System.IO
-import System.IO.Unsafe
-
-import Test.QuickCheck
--- import Text.Printf
-
-import Test.Framework
-import Test.Framework.Providers.QuickCheck2
--- import Data.Monoid
-
-import qualified Action (tests)
-import Arbitrary()
+module Main ( main ) where
+
+import           Control.Applicative
+import           Control.Exception                    as C (SomeException,
+                                                            catch, evaluate)
+import           Control.Monad                        (unless)
+import qualified Data.ByteString                      as B
+import qualified Data.ByteString.Lazy                 as L
+import qualified Data.ByteString.Lazy.Internal        as L
+import           Data.Int
+import           Data.Ratio
+import           System.IO.Unsafe
+
+import           Test.Framework
+import           Test.Framework.Providers.QuickCheck2
+import           Test.QuickCheck
+
+import qualified Action                               (tests)
+import           Arbitrary                            ()
+import           Data.Binary
+import           Data.Binary.Get
+import           Data.Binary.Put
 
 ------------------------------------------------------------------------
 
@@ -490,10 +470,6 @@ tests =
                       p (test :: T (Int,Int,Int,Int,Int,Int,Int,Int,Int)))
             , ("(Int,Int,Int,Int,Int,Int,Int,Int,Int,Int)",
                       p (test :: T (Int,Int,Int,Int,Int,Int,Int,Int,Int,Int)))
-    {-
-            , ("IntSet",            p (test      :: T IntSet.IntSet          ))
-            , ("IntMap ByteString", p (test      :: T (IntMap.IntMap B.ByteString) ))
-    -}
 
             , ("B.ByteString",  p (test :: T B.ByteString        ))
             , ("L.ByteString",  p (test :: T L.ByteString        ))
@@ -506,6 +482,3 @@ tests =
             , ("[L.ByteString] invariant", p (prop_invariant :: B [L.ByteString]               ))
             ]
         ]
-
--- GHC only:
---      ,("Sequence", p (roundTrip :: Seq.Seq Int64 -> Bool))