summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregorySchwartz <>2019-08-13 16:17:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2019-08-13 16:17:00 (GMT)
commit1865bcf957e0a1325d54a8f57eb2199a48291a63 (patch)
treedc2ccf8f624e9346ac6168e55e992ed36394bbe6
parent8c0e140397e79d9ff42e6934462bea6c37c1ac78 (diff)
version 0.1.4.5HEAD0.1.4.5master
-rw-r--r--birch-beer.cabal2
-rw-r--r--src/BirchBeer/Types.hs7
2 files changed, 8 insertions, 1 deletions
diff --git a/birch-beer.cabal b/birch-beer.cabal
index a26e32e..c704a83 100644
--- a/birch-beer.cabal
+++ b/birch-beer.cabal
@@ -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
diff --git a/src/BirchBeer/Types.hs b/src/BirchBeer/Types.hs
index c47e6e2..f955b08 100644
--- a/src/BirchBeer/Types.hs
+++ b/src/BirchBeer/Types.hs
@@ -31,6 +31,7 @@ import qualified Data.Aeson.TH as A
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) => Semigroup (TreeNode a) where
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