feat: prettify json in dev

lunarcast · May 15, 2020 · b8340a3 · b8340a3
1 parent f3350fb
commit b8340a3
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Api/Request.purs b/src/Api/Request.purs
@@ -31,14 +31,14 @@ type RequestOptions
     }
 
 -- Url to send requests to
-newtype BaseUrl
-  = BaseUrl String
+data BaseUrl
+  = BaseUrl String Boolean
 
 -- Default request we can reuse troughout the app
 defaultRequest :: BaseUrl -> RequestOptions -> Request Json
-defaultRequest (BaseUrl baseUrl) { endpoint, method } =
+defaultRequest (BaseUrl baseUrl pretty) { endpoint, method } =
   { method: Left method
-  , url: baseUrl <> print endpointCodec endpoint
+  , url: baseUrl <> print endpointCodec endpoint <> if pretty then "?pretty" else ""
   , content: RB.json <$> body
   , username: Nothing
   , password: Nothing