on master help sign in
Fix up some formatting
8bc8228Bryan O'Sullivan
examples/Twitter/Manual.hs+10−10
@@ -113,17 +113,17 @@ instance ToJSON Result where
113 ]
113 ]
114
114
115 toEncoding Result{..} = pairs $
115 toEncoding Result{..} = pairs $
116− "results" .= results
116+ "results" .= results
117− <> "max_id" .= max_id
117+ <> "max_id" .= max_id
118− <> "since_id" .= since_id
118+ <> "since_id" .= since_id
119− <> "refresh_url" .= refresh_url
119+ <> "refresh_url" .= refresh_url
120− <> "next_page" .= next_page
120+ <> "next_page" .= next_page
121 <> "results_per_page" .= results_per_page
121 <> "results_per_page" .= results_per_page
122− <> "page" .= page
122+ <> "page" .= page
123− <> "completed_in" .= completed_in
123+ <> "completed_in" .= completed_in
124− <> "since_id_str" .= since_id_str
124+ <> "since_id_str" .= since_id_str
125− <> "max_id_str" .= max_id_str
125+ <> "max_id_str" .= max_id_str
126− <> "query" .= query
126+ <> "query" .= query
127
127
128instance FromJSON Result where
128instance FromJSON Result where
129 parseJSON (Object v) = Result <$>
129 parseJSON (Object v) = Result <$>