@@ -40,8 +40,8 @@ data TestHeader
41instance ToHttpApiData TestHeader where
41instance ToHttpApiData TestHeader where
42 toHeader = toHeader . show
42 toHeader = toHeader . show
43− toUrlPiece _ = error "ToHttpApiData.toUrlPiece not implemented for TestHeader"
43+ toUrlPiece = toUrlPiece . show
44− toQueryParam _ = error "ToHttpApiData.toQueryParam not implemented for TestHeader"
44+ toQueryParam = toQueryParam . show
47instance Arbitrary TestHeader where
47instance Arbitrary TestHeader where