@@ -241,13 +241,15 @@ uploadDecl n p api url fs m =
241241 rs = InsType noLoc (TyApp (TyCon "Rs") ty) $
242242 maybe unit_tycon (tycon . ref) (_mResponse m)
243243
244− extras = maybeToList alt ++ [upl, payload, var media]
244+ extras = maybeToList alt ++ [upl] ++ payload ++ [var media]
245245 where
246246 upl = app (var "Just") (var "AltMedia")
247247 alt = app (var "Just") . var . name . Text.unpack . alternate <$>
248248 (Map.lookup "alt" (_mParameters m) >>= view iDefault)
249249
250− payload = var (fname p "payload")
250+ payload
251+ | isJust (_mRequest m) = [var (fname p "payload")]
252+ | otherwise = []
251253
252254 pat = uploadPat m
253255