blob: 8f9e85402f9c3490dbfee50a81678c674b4f2bc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
--- a/Lvm/Common/Byte.hs
+++ b/Lvm/Common/Byte.hs
@@ -19,2 +19,3 @@ import System.Exit
import System.IO
+import qualified Data.Semigroup as S
@@ -68,2 +69,7 @@ max32 = 2^(32::Int) -1 -- Bastiaan (Todo: check)
+instance S.Semigroup Bytes where
+ (<>) bs Nil = bs
+ (<>) Nil cs = cs
+ (<>) bs cs = Cat bs cs
+
instance Monoid Bytes where
|