Migrate from purty to purs-tidy (#178)

* Replace purty with purs-tidy

* run purs-tidy

.gitignore

@@ -4,3 +4,4 @@
 /output
 /.psa-stash
 /.psci_modules
+/.psc-ide-port

.tidyrc.json

@@ -0,0 +1,9 @@
+{
+  "importWrap": "source",
+  "indent": 2,
+  "operatorsFile": null,
+  "ribbon": 1,
+  "typeArrowPlacement": "last",
+  "unicode": "never",
+  "width": null
+}

Makefile

@@ -9,7 +9,7 @@ PULP := pulp
 NODE := node
 YARN := yarn
 BOWER := bower
-PURTY := purty
+PURSTIDY := purs-tidy
 
 # Options to pass to pulp when building
 BUILD_OPTIONS := -- --stash --censor-lib --strict
@@ -89,14 +89,10 @@ example: $(BUILD) $(EXAMPLE_INDEX)
 endif
 
 format: $(MODULES) $(SOURCES) $(TESTSOURCES) $(EXAMPLESOURCES)
-	$(PURTY) format --write $(SRCPATH)
-	$(PURTY) format --write $(TESTPATH)
-	$(PURTY) format --write $(EXAMPLESPATH)
+	$(PURSTIDY) format-in-place $(SRCPATH) $(TESTPATH) $(EXAMPLESPATH)
 
 test-format: $(MODULES) $(SOURCES) $(TESTSOURCES) $(EXAMPLESOURCES)
-	$(PURTY) validate $(SRCPATH) &&\
-	  $(PURTY) validate $(TESTPATH) &&\
-	  $(PURTY) validate $(EXAMPLESPATH)
+	$(PURSTIDY) check $(SRCPATH) $(TESTPATH) $(EXAMPLESPATH)
 
 # Run the test suite
 test-code: $(BUILD) $(TESTSOURCES) $(EXAMPLESOURCES) $(MODULES)

docs/Examples/CustomStack/Main.purs

@@ -8,9 +8,7 @@ import Effect.Console as Console
 import HTTPure as HTTPure
 
 -- | A type to hold the environment for our ReaderT
-type Env
-  = { name :: String
-    }
+type Env = { name :: String }
 
 -- | A middleware that introduces a ReaderT
 readerMiddleware ::

docs/Examples/Middleware/Main.purs

@@ -37,7 +37,6 @@ pathMiddleware ::
   HTTPure.Request ->
   HTTPure.ResponseM
 pathMiddleware _ { path: [ "middleware" ] } = HTTPure.ok "Middleware!"
-
 pathMiddleware router request = router request
 
 -- | Say 'hello' when run, and add a default value to the X-Middleware header

docs/Examples/MultiRoute/Main.purs

@@ -7,9 +7,7 @@ import HTTPure as HTTPure
 -- | Specify the routes
 router :: HTTPure.Request -> HTTPure.ResponseM
 router { path: [ "hello" ] } = HTTPure.ok "hello"
-
 router { path: [ "goodbye" ] } = HTTPure.ok "goodbye"
-
 router _ = HTTPure.notFound
 
 -- | Boot up the server

docs/Examples/Post/Main.purs

@@ -7,7 +7,6 @@ import HTTPure as HTTPure
 -- | Route to the correct handler
 router :: HTTPure.Request -> HTTPure.ResponseM
 router { body, method: HTTPure.Post } = HTTPure.ok body
-
 router _ = HTTPure.notFound
 
 -- | Boot up the server

package.json

@@ -4,6 +4,6 @@
         "bower": "^1.8.12",
         "pulp": "^15.0.0",
         "purescript-psa": "^0.8.2",
-        "purty": "^7.0.0"
+        "purs-tidy": "^0.6.2"
     }
 }

src/HTTPure/Request.purs

@@ -19,8 +19,8 @@ import HTTPure.Version as Version
 
 -- | The `Request` type is a `Record` type that includes fields for accessing
 -- | the different parts of the HTTP request.
-type Request
-  = { method :: Method.Method
+type Request =
+  { method :: Method.Method
   , path :: Path.Path
   , query :: Query.Query
   , headers :: Headers.Headers
@@ -50,8 +50,8 @@ fullPath request = "/" <> path <> questionMark <> queryParams
 fromHTTPRequest :: HTTP.Request -> Aff.Aff Request
 fromHTTPRequest request = do
   body <- Body.read request
-  pure
-    $ { method: Method.read request
+  pure $
+    { method: Method.read request
     , path: Path.read request
     , query: Query.read request
     , headers: Headers.read request

src/HTTPure/Response.purs

@@ -146,12 +146,11 @@ import HTTPure.Status as Status
 -- | The `ResponseM` type simply conveniently wraps up an HTTPure monad that
 -- | returns a response. This type is the return type of all router/route
 -- | methods.
-type ResponseM
-  = Aff.Aff Response
+type ResponseM = Aff.Aff Response
 
 -- | A `Response` is a status code, headers, and a body.
-type Response
-  = { status :: Status.Status
+type Response =
+  { status :: Status.Status
   , headers :: Headers.Headers
   , writeBody :: HTTP.Response -> Aff.Aff Unit
   }

src/HTTPure/Server.purs

@@ -47,8 +47,7 @@ handleRequest ::
   HTTP.Response ->
   Effect.Effect Unit
 handleRequest router request httpresponse =
-  void $ Aff.runAff (\_ -> pure unit)
-    $ Request.fromHTTPRequest request
+  void $ Aff.runAff (\_ -> pure unit) $ Request.fromHTTPRequest request
     >>= onError500 router
     >>= Response.send httpresponse
 
@@ -121,5 +120,4 @@ serveSecure port cert key router onStarted = do
   where
   sslOpts key' cert' =
     HTTPS.key := HTTPS.keyString key'
-      <> HTTPS.cert
-      := HTTPS.certString cert'
+      <> HTTPS.cert := HTTPS.certString cert'

test/Test/HTTPure/HeadersSpec.purs

@@ -99,8 +99,7 @@ writeSpec :: TestHelpers.Test
 writeSpec =
   Spec.describe "write" do
     Spec.it "writes the headers to the response" do
-      header <-
-        EffectClass.liftEffect do
+      header <- EffectClass.liftEffect do
         mock <- TestHelpers.mockResponse
         Headers.write mock $ Headers.header "X-Test" "test"
         pure $ TestHelpers.getResponseHeader "X-Test" mock

test/Test/HTTPure/ServerSpec.purs

@@ -94,11 +94,9 @@ serveSecure'Spec =
   sslOptions = do
     cert <- FSSync.readTextFile Encoding.UTF8 "./test/Mocks/Certificate.cer"
     key <- FSSync.readTextFile Encoding.UTF8 "./test/Mocks/Key.key"
-    pure
-      $ HTTPS.key
-      := HTTPS.keyString key
-      <> HTTPS.cert
-      := HTTPS.certString cert
+    pure $
+      HTTPS.key := HTTPS.keyString key
+        <> HTTPS.cert := HTTPS.certString cert
 
 serverSpec :: TestHelpers.Test
 serverSpec =

test/Test/HTTPure/TestHelpers.purs

@@ -55,18 +55,12 @@ request secure port method headers path body =
   where
   options =
     HTTPClient.protocol := (if secure then "https:" else "http:")
-      <> HTTPClient.method
-      := method
-      <> HTTPClient.hostname
-      := "localhost"
-      <> HTTPClient.port
-      := port
-      <> HTTPClient.path
-      := path
-      <> HTTPClient.headers
-      := HTTPClient.RequestHeaders headers
-      <> HTTPClient.rejectUnauthorized
-      := false
+      <> HTTPClient.method := method
+      <> HTTPClient.hostname := "localhost"
+      <> HTTPClient.port := port
+      <> HTTPClient.path := path
+      <> HTTPClient.headers := HTTPClient.RequestHeaders headers
+      <> HTTPClient.rejectUnauthorized := false
 
 -- | Convert a request to an Aff containing the `Buffer with the response body.
 toBuffer :: HTTPClient.Response -> Aff.Aff Buffer.Buffer
@@ -76,8 +70,7 @@ toBuffer response =
       stream = HTTPClient.responseAsStream response
     chunks <- Ref.new List.Nil
     Stream.onData stream $ \new -> Ref.modify_ (List.Cons new) chunks
-    Stream.onEnd stream
-      $ Ref.read chunks
+    Stream.onEnd stream $ Ref.read chunks
       >>= List.reverse
         >>> Array.fromFoldable
         >>> Buffer.concat

test/Test/Main.purs

@@ -21,9 +21,7 @@ import Test.HTTPure.IntegrationSpec as IntegrationSpec
 import Test.HTTPure.TestHelpers as TestHelpers
 
 main :: TestHelpers.TestSuite
-main =
-  Aff.launchAff_ $ Runner.runSpec [ Reporter.specReporter ]
-    $ Spec.describe "HTTPure" do
+main = Aff.launchAff_ $ Runner.runSpec [ Reporter.specReporter ] $ Spec.describe "HTTPure" do
   BodySpec.bodySpec
   HeadersSpec.headersSpec
   LookupSpec.lookupSpec

yarn.lock

@@ -945,10 +945,10 @@ purescript-psa@^0.8.2:
   resolved "https://registry.yarnpkg.com/purescript-psa/-/purescript-psa-0.8.2.tgz#ee20c40f02cd0c5ed6dd3dd93ef02d9c466f17bc"
   integrity sha512-4Olf0aQQrNCfcDLXQI3gJgINEQ+3U+4QPLmQ2LHX2L/YOXSwM7fOGIUs/wMm/FQnwERUyQmHKQTJKB4LIjE2fg==
 
-purty@^7.0.0:
-  version "7.0.0"
-  resolved "https://registry.yarnpkg.com/purty/-/purty-7.0.0.tgz#3a714a2155f543118c6831e1fb41b84d17de2b59"
-  integrity sha512-gHHghPEjRY39GUJ8KnOMRfPArJILGCXwEhX6BmEdNiLgZuCjLLBLyawGiKFjYMfy8H5Dsk5NbgwIGslrPrernA==
+purs-tidy@^0.6.2:
+  version "0.6.2"
+  resolved "https://registry.yarnpkg.com/purs-tidy/-/purs-tidy-0.6.2.tgz#3f17b5a1fe47183a2c41b2640b1fe2aff9ca5a1d"
+  integrity sha512-vakkmCDlb9G8A7m6azxjbUfuwz6Lomn93RRWcqNrQbNIHDwBs05pfLZb5XslqcNbP5UIJ4wfL+YhL1/GlfNoBw==
 
 querystring-es3@~0.2.0:
   version "0.2.1"