Skip to content

Commit 7b97360

Browse files
committed
Make RegexFlags a newtype
1 parent d9ba5d0 commit 7b97360

File tree

2 files changed

+5
-1
lines changed

2 files changed

+5
-1
lines changed

CHANGELOG.md

+1
Original file line numberDiff line numberDiff line change
@@ -15,6 +15,7 @@ Bugfixes:
1515

1616
Other improvements:
1717
- Surround code with backticks in documentation (#148)
18+
- Make `RegexFlags` a `newtype` (#159 by @mhmdanas)
1819

1920
## [v5.0.0](https://github.com/purescript/purescript-strings/releases/tag/v5.0.0) - 2021-02-26
2021

src/Data/String/Regex/Flags.purs

+4-1
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@ module Data.String.Regex.Flags where
33
import Prelude
44

55
import Control.MonadPlus (guard)
6+
import Data.Newtype (class Newtype)
67
import Data.String (joinWith)
78

89
type RegexFlagsRec =
@@ -15,7 +16,9 @@ type RegexFlagsRec =
1516
}
1617

1718
-- | Flags that control matching.
18-
data RegexFlags = RegexFlags RegexFlagsRec
19+
newtype RegexFlags = RegexFlags RegexFlagsRec
20+
21+
derive instance newtypeRegexFlags :: Newtype RegexFlags _
1922

2023
-- | All flags set to false.
2124
noFlags :: RegexFlags

0 commit comments

Comments
 (0)