diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2018-12-08 12:04:31 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-12-08 12:04:31 -0700 |
commit | 8e3da156811f5901230b5ae1e61209683f793920 (patch) | |
tree | 3e6ded85f64264687063534b833439625137769c /Val.hs | |
parent | baac01c49b553cf3e1564ad349bd90c0284a46dd (diff) | |
parent | 9f282483310c2ce028c507cc385e69342ad6c7bc (diff) | |
download | debug-me-8e3da156811f5901230b5ae1e61209683f793920.tar.gz |
Merge tag '1.20181208'
tagging package debug-me version 1.20181208
Diffstat (limited to 'Val.hs')
-rw-r--r-- | Val.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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) |