@@ -1,3 +1,4 @@
1+{-# LANGUAGE OverloadedStrings #-}
12{-# LANGUAGE DeriveDataTypeable #-}
23{-# LANGUAGE DeriveGeneric #-}
34{-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -22,6 +23,7 @@ module Network.Google.Data.Time
2223 , _Duration
2324 ) where
2425
26+import Data.Monoid ((<>))
2527import Control.Lens
2628import Data.Aeson
2729import qualified Data.Aeson.Types as Aeson
@@ -86,7 +88,7 @@ _Duration = iso unDuration Duration
8688instance ToHttpApiData Duration where
8789 toQueryParam =
8890 LText.toStrict
89− . Build.toLazyText
91+ . (\seconds -> Build.toLazyText seconds <> "s")
9092 . Sci.formatScientificBuilder Sci.Fixed (Just 9)
9193 . unDuration
9294