github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

And switch over to RepositoryPush too.

Browse Source
This commit is contained in:
Patrick Thomson 2019-02-19 19:07:39 -05:00
parent eb41ab89d1
commit a69d420aee
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Proto3/Google/Wrapped.hs
View File

@ -14,7 +14,7 @@ import Proto3.Suite
-- a separate data type for each of these wrappers: we just need to declare 'Named' instances for each instance -- a separate data type for each of these wrappers: we just need to declare 'Named' instances for each instance
-- for which we want to link the Google-named wrapped types. -- for which we want to link the Google-named wrapped types.
newtype Wrapped a = Wrapped { value :: a } newtype Wrapped a = Wrapped { value :: a }
deriving (Eq, Show, Generic, NFData) deriving (Eq, Show, Ord, Generic, NFData)
instance Named (Wrapped Text) where nameOf _ = "StringValue" instance Named (Wrapped Text) where nameOf _ = "StringValue"
instance Named (Wrapped ByteString) where nameOf _ = "BytesValue" instance Named (Wrapped ByteString) where nameOf _ = "BytesValue"