diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-22 14:52:14 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-22 14:52:14 -0700 |
| commit | a49322636dc8671e959f68b13791e596c65a3338 (patch) | |
| tree | 6b82ca7f4588b36b487aad5aa10fd1207256cd13 /Val.hs | |
| parent | 31f68db1ac80bb163e040dcb15a0cf6009e0260c (diff) | |
| parent | dc753f6815f5b8906ae54ebee801b72c60cdef3a (diff) | |
| download | debug-me-a49322636dc8671e959f68b13791e596c65a3338.tar.gz | |
Merge tag '1.20220324'
tagging package debug-me version 1.20220324
# gpg: Signature made Thu 24 Mar 2022 09:28:11 AM MST
# gpg: using RSA key 28A500C35207EAB72F6C0F25DB12DB0FF05F8F38
# gpg: Good signature from "Joey Hess <joeyh@joeyh.name>" [full]
# Primary key fingerprint: E85A 5F63 B31D 24C1 EBF0 D81C C910 D922 2512 E3C7
# Subkey fingerprint: 28A5 00C3 5207 EAB7 2F6C 0F25 DB12 DB0F F05F 8F38
Diffstat (limited to 'Val.hs')
| -rw-r--r-- | Val.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -9,8 +9,8 @@ module Val where import Memory import JSON +import qualified GHC.Generics as G -import GHC.Generics (Generic) import Data.Aeson.Types import qualified Codec.Binary.Base64 as B64 import qualified Data.Text as T @@ -20,7 +20,7 @@ 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, Sem.Semigroup, Monoid) + deriving (Show, G.Generic, Eq, Sem.Semigroup, Monoid) instance DataSize Val where dataSize (Val b) = fromIntegral (B.length b) |