From 887c90a0462fb409416980bc6a1eb1b130c60ff4 Mon Sep 17 00:00:00 2001 From: Jan Vincent Liwanag Date: Thu, 25 Mar 2021 22:37:40 +0800 Subject: [PATCH 1/2] Skip copyRecord for buildFromScratch in Builder --- src/Record/Builder.purs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Record/Builder.purs b/src/Record/Builder.purs index a3bea60..fe2aff9 100644 --- a/src/Record/Builder.purs +++ b/src/Record/Builder.purs @@ -15,7 +15,6 @@ module Record.Builder import Prelude hiding (flip) -import Data.Function (flip) as Function import Data.Function.Uncurried (runFn2) import Data.Symbol (class IsSymbol, reflectSymbol) import Prim.Row as Row @@ -50,7 +49,7 @@ build (Builder b) r1 = b (copyRecord r1) -- | Build a record from scratch. buildFromScratch :: forall r. Builder (Record ()) (Record r) -> Record r -buildFromScratch = Function.flip build {} +buildFromScratch (Builder b) = b {} -- | Flip a function of one argument returning a builder. flip :: forall r1 r2 r3. (Record r1 -> Builder (Record r2) (Record r3)) -> Record r2 -> Builder (Record r1) (Record r3) From 5fdb6793f8dd8c051cd42e61a2c80ef533dcbb38 Mon Sep 17 00:00:00 2001 From: Jan Vincent Liwanag Date: Thu, 25 Mar 2021 22:48:06 +0800 Subject: [PATCH 2/2] Add changelog entry for skipping copyRecord for buildFromScratch --- CHANGELOG.md | 1 + 1 file changed, 1 insertion(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index bf067cc..59037dc 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -11,6 +11,7 @@ New features: Bugfixes: Other improvements: +- Skipped needing to copy initiial record for `buildFromScratch`. (#80) ## [v3.0.0](https://github.com/purescript/purescript-record/releases/tag/v3.0.0) - 2021-02-26