birch-beer 0.1.4.4 → 0.1.4.5

raw patch · 2 files changed

+8/−1 lines, 2 files

Files

• birch-beer.cabal +1/−1
• src/BirchBeer/Types.hs +7/−0

@@ -1,6 +1,6 @@ cabal-version: >=1.10 name: birch-beer-version: 0.1.4.4+version: 0.1.4.5 license: GPL-3 license-file: LICENSE copyright: 2019 Gregory W. Schwartz

@@ -31,6 +31,7 @@ import qualified Data.Aeson.Types as A import qualified Data.Clustering.Hierarchical as HC import qualified Data.Graph.Inductive as G+import qualified Data.Map.Strict as Map import qualified Data.Sequence as Seq import qualified Data.Set as Set import qualified Data.Sparse.Common as S@@ -256,3 +257,9 @@  instance (Semigroup a) => Monoid (TreeNode a) where   mempty = TreeNode { _distance = Nothing, _item = mempty }++instance Semigroup LabelMap where+  (<>) (LabelMap x) (LabelMap y)  = LabelMap $ Map.union x y++instance Monoid LabelMap where+  mempty = LabelMap Map.empty