summaryrefslogtreecommitdiffhomepage
path: root/Val.hs
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2018-12-08 12:04:31 -0700
committerSean Whitton <spwhitton@spwhitton.name>2018-12-08 12:04:31 -0700
commit8e3da156811f5901230b5ae1e61209683f793920 (patch)
tree3e6ded85f64264687063534b833439625137769c /Val.hs
parentbaac01c49b553cf3e1564ad349bd90c0284a46dd (diff)
parent9f282483310c2ce028c507cc385e69342ad6c7bc (diff)
downloaddebug-me-8e3da156811f5901230b5ae1e61209683f793920.tar.gz
Merge tag '1.20181208'
tagging package debug-me version 1.20181208
Diffstat (limited to 'Val.hs')
-rw-r--r--Val.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Val.hs b/Val.hs
index c395a95..f024b9d 100644
--- a/Val.hs
+++ b/Val.hs
@@ -16,10 +16,11 @@ import qualified Codec.Binary.Base64 as B64
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.ByteString as B
+import qualified Data.Semigroup as Sem
-- | Newtype of ByteString so we can have JSON instances without orphans.
newtype Val = Val { val :: B.ByteString }
- deriving (Show, Generic, Eq, Monoid)
+ deriving (Show, Generic, Eq, Sem.Semigroup, Monoid)
instance DataSize Val where
dataSize (Val b) = fromIntegral (B.length b)