We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent c7960f4 commit 91424a9Copy full SHA for 91424a9
1 file changed
src/GitHub/Data/Gists.hs
@@ -100,14 +100,14 @@ instance NFData NewGist where rnf = genericRnf
100
instance Binary NewGist
101
102
instance ToJSON NewGist where
103
- toJSON (NewGist { newGistDescription = description
104
- , newGistFiles = files
105
- , newGistPublic = public
106
- }) = object
107
- [ "description" .= description
108
- , "files" .= files
109
- , "public" .= public
110
- ]
+ toJSON NewGist { newGistDescription = description
+ , newGistFiles = files
+ , newGistPublic = public
+ } = object
+ [ "description" .= description
+ , "files" .= files
+ , "public" .= public
+ ]
111
112
data NewGistFile = NewGistFile
113
{ newGistFileContent :: !Text
0 commit comments