From 74e435a618d2a11e41f6f056c1f0b803513e8995 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@typed.io>
Date: Fri, 24 Aug 2018 20:26:56 +0100
Subject: [PATCH] remove Monoid
---
Data/Git/Types.hs | 5 -----
1 file changed, 5 deletions(-)
diff --git a/Data/Git/Types.hs b/Data/Git/Types.hs
index 599909b..c9da664 100644
--- a/Data/Git/Types.hs
+++ b/Data/Git/Types.hs
@@ -185,11 +185,6 @@ data Person = Person
-- | Represent a root tree with zero to many tree entries.
data Tree hash = Tree { treeGetEnts :: [TreeEnt hash] } deriving (Show,Eq)
-instance Monoid (Tree hash) where
- mempty = Tree []
- mappend (Tree e1) (Tree e2) = Tree (e1 ++ e2)
- mconcat trees = Tree $ concatMap treeGetEnts trees
-
-- | Represent a binary blob.
data Blob hash = Blob { blobGetContent :: L.ByteString } deriving (Show,Eq)
--
GitLab