posts :: (Integral int, Show int, IsString string, Monoid string)
      => int -> string
posts n = "/posts/" <> (fromString $ show n) <> ".json"
posts :: (Integral int, Show int, IsString string, Monoid string)
      => int -> string
posts n = "/posts/" <> (fromString $ show n) <> ".json"
posts n = "/posts/" <> (fromString $ show n) <> ".json"