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

[John Goerzen]

The following commit has been merged in the master branch:
commit 723a5e2181241eb7796a19d844acd6366cf85e9a
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Oct 20 00:55:37 2006 +0100

    Remove FiniteMapDBM
    
    Due to removal of FiniteMap from GHC 6.6

diff --git a/MissingH.cabal b/MissingH.cabal
index 13977de..edc08c5 100644
--- a/MissingH.cabal
+++ b/MissingH.cabal
@@ -76,7 +76,6 @@ Exposed-Modules: MissingH.Str, MissingH.IO, MissingH.IO.Binary, MissingH.List,
     MissingH.Wash.Utility.URLCoding,
     MissingH.Wash.Utility.Unique,
   MissingH.AnyDBM,
-    MissingH.AnyDBM.FiniteMapDBM,
     MissingH.AnyDBM.MapDBM,
     MissingH.AnyDBM.StringDBM,
   MissingH.GetOpt
diff --git a/MissingH/AnyDBM/FiniteMapDBM.hs b/MissingH/AnyDBM/FiniteMapDBM.hs
deleted file mode 100644
index 4688065..0000000
--- a/MissingH/AnyDBM/FiniteMapDBM.hs
+++ /dev/null
@@ -1,69 +0,0 @@
-{- arch-tag: Support for in-memory FiniteMaps as AnyDBM objects
-Copyright (C) 2005 John Goerzen <jgoerzen at complete.org>
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
--}
-
-{- |
-   Module     : MissingH.AnyDBM.FiniteMapDBM
-   Copyright  : Copyright (C) 2005 John Goerzen
-   License    : GNU GPL, version 2 or above
-
-   Maintainer : John Goerzen <jgoerzen at complete.org>
-   Stability  : provisional
-   Portability: portable
-
-Written by John Goerzen, jgoerzen\@complete.org
-
-Support for working with FiniteMaps through the "MissingH.AnyDBM" framework.
--}
-
-module MissingH.AnyDBM.FiniteMapDBM
-    {-# DEPRECATED "Please use MissingH.AnyDBM.MapDBM instead." #-}
-                                    (FiniteMapDBM,
-                                     newFiniteMapDBM,
-                                     setFiniteMapDBM,
-                                     getFiniteMapDBM
-                                    )
-where
-import MissingH.AnyDBM
-import Data.FiniteMap
-import Data.IORef
-
-{- | The type of the FiniteMapDBM. -}
-type FiniteMapDBM = IORef (FiniteMap String String)
-
-{- | Makes a new FiniteMapDBM with an empty FiniteMap. -}
-newFiniteMapDBM :: IO FiniteMapDBM
-newFiniteMapDBM = newIORef emptyFM
-
-{- | Sets the embedded FiniteMap in this 'FiniteMapDBM' to the
-given 'FiniteMap'. -}
-setFiniteMapDBM :: FiniteMapDBM -> FiniteMap String String -> IO ()
-setFiniteMapDBM h fm = writeIORef h fm
-
-{- | Gets the embedded FiniteMap in this 'FiniteMapDBM'. -}
-getFiniteMapDBM :: FiniteMapDBM -> IO (FiniteMap String String)
-getFiniteMapDBM = readIORef
-
-m = modifyIORef
-
-instance AnyDBM FiniteMapDBM where
-    insertA h k v = m h (\x -> addToFM x k v)
-    deleteA h k = m h (\x -> delFromFM x k)
-    lookupA h k = do fm <- readIORef h
-                     return $ lookupFM fm k
-    toListA h = do fm <- readIORef h
-                   return $ fmToList fm

-- 
haskell-testpack