smartGroup 0.2.0 → 0.2.1

raw patch · 2 files changed

+3/−8 lines, 2 files

Files

• SmartGroup.hs +1/−6
• smartGroup.cabal +2/−2

@@ -1,5 +1,5 @@ {-# LANGUAGE TypeSynonymInstances #-}-module SmartGroup (Splittable, groupAll, groupNum, groupLog) where+module SmartGroup (Splittable(wordsOf), groupAll, groupNum, groupLog) where import Data.Heap as Heap import Data.Set as Set import Data.Map as Map@@ -86,11 +86,6 @@ sizeMap i m = if Map.null m then Nothing else Just $ case Map.findMax m of         (StringL _ c,_) -> if c >= i then Splittable m                  else Unsplittable (Set.unions (Map.elems m))---- findMax fails on empty maps--- maxView might not return a Just value--- known offenders-   -- ["","","",""] (empty strings have no words to key off of)  mkList :: (Ord a, Splittable s) => WordAssoc s a -> [[a]] mkList = Prelude.map (Set.toList . toSet) . Heap.toList

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.2.0+Version:             0.2.1  -- A short (one-line) description of the package. Synopsis:            group strings by words in common@@ -17,7 +17,7 @@                      to group them into smaller lists based on the most common words of the set.  -- URL for the project homepage or repository.-Homepage:            http://patch-tag.com/r/salazar/smartgroup+Homepage:            http://patch-tag.com/r/salazar/smartGroup  -- The license under which the package is released. License:             BSD3