[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[gwern0]

The following commit has been merged in the master branch:
commit 973817252086960b171a532e890a0e57a2e450d5
Author: gwern0 <gwern0 at gmail.com>
Date:   Fri Nov 30 10:33:56 2007 +0100

    rm excess
    
    Remove 3 imports, and the splitComma function; they are neither exported nor used in anything that is exported, and there's no indication they might be needed in the future.

diff --git a/src/System/Debian.hs b/src/System/Debian.hs
index ff9dab8..b018bae 100644
--- a/src/System/Debian.hs
+++ b/src/System/Debian.hs
@@ -21,7 +21,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    Copyright  : Copyright (C) 2004 John Goerzen
    License    : GNU GPL, version 2 or above
 
-   Maintainer : John Goerzen <jgoerzen at complete.org> 
+   Maintainer : John Goerzen <jgoerzen at complete.org>
    Stability  : provisional
    Portability: portable
 
@@ -36,11 +36,9 @@ module System.Debian (-- * Control or Similar File Utilities
                         -- * Version Number Utilities
                         DebVersion, compareDebVersion, checkDebVersion
                        )
-where
+    where
+
 import System.Cmd
-import System.Debian.ControlParser
-import System.Cmd.Utils
-import Data.String
 import System.IO.Unsafe
 import System.Exit
 
@@ -48,9 +46,6 @@ import System.Exit
 or any control-like file (such as the output from apt-cache show, etc.) -}
 type ControlFile = [(String, String)]
 
-splitComma :: String -> [String]
-splitComma = map strip . split ","
-
 ----------------------------------------------------------------------
 -- VERSION NUMBERS
 ----------------------------------------------------------------------
@@ -60,7 +55,7 @@ of 'Prelude.Ord', but you can also use 'compareDebVersion' if you prefer. -}
 data DebVersion = DebVersion String
                 deriving (Eq)
 instance Ord DebVersion where
-    compare (DebVersion v1) (DebVersion v2) = 
+    compare (DebVersion v1) (DebVersion v2) =
         {- This is OK since compareDebVersion should always be the same. -}
         unsafePerformIO $ compareDebVersion v1 v2
 
@@ -82,6 +77,6 @@ checkDebVersion :: String       -- ^ Version 1
                 -> IO Bool
 checkDebVersion v1 op v2 =
     do ec <- rawSystem "dpkg" ["--compare-versions", v1, op, v2]
-       case ec of 
+       case ec of
                ExitSuccess -> return True
                ExitFailure _ -> return False

-- 
haskell-testpack