diff --git a/package.json b/package.json index b7a2a77..f95bf53 100644 --- a/package.json +++ b/package.json @@ -22,7 +22,7 @@ "purescript": "0.15.2", "purescript-language-server": "^0.16.6", "purescript-psa": "^0.8.2", - "purty": "7.0.0", + "purs-tidy": "0.9.2", "rimraf": "^2.6.2", "spago": "^0.20.8", "pscid": "2.9.3" diff --git a/src/GetSchema.purs b/src/GetSchema.purs index 742efcd..a43db85 100644 --- a/src/GetSchema.purs +++ b/src/GetSchema.purs @@ -51,21 +51,21 @@ app config = fromParts [ host, port, db, user ] = portFromString port <#> \p -> - (poolConfig db) - { host = Just host - , port = Just p - , user = Just user - } + (poolConfig db) + { host = Just host + , port = Just p + , user = Just user + } fromParts [ host, port, db, user, password ] = portFromString port <#> \p -> - (poolConfig db) - { host = Just host - , port = Just p - , user = Just user - , password = Just password - } + (poolConfig db) + { host = Just host + , port = Just p + , user = Just user + , password = Just password + } fromParts _ = Left "Config parameter must be of the form :::: (password optional)" @@ -79,11 +79,11 @@ dbModules config@{ getSchemaConfig: { dbManagedColumns, scalaPkg, pursPkg } } = else for config.table $ Database.tableModule pool { dbManagedColumns, scalaPkg, pursPkg } -type Config - = { table :: Maybe String - , poolConfig :: Pool.Configuration - , getSchemaConfig :: GetSchemaConfig - } +type Config = + { table :: Maybe String + , poolConfig :: Pool.Configuration + , getSchemaConfig :: GetSchemaConfig + } prependNotice :: String -> String prependNotice = ("// This file is automatically generated from DB schema. Do not edit.\n" <> _) diff --git a/test/Support.purs b/test/Support.purs index 779374a..aa6220e 100644 --- a/test/Support.purs +++ b/test/Support.purs @@ -2,7 +2,6 @@ module Test.Support where import Data.Newtype -newtype Newint - = Newint Int +newtype Newint = Newint Int derive instance newtypeNewint :: Newtype Newint _