a902fa0..master · typeable/inflections-hs

git.iko.soy/typeable/inflections-hs

15 files changed+256−73

unifiedsplit

.travis.yml+7−8 CHANGELOG.md+23 LICENSE+17−18 README.md+11−8 Text/Inflections.hs+32−11 Text/Inflections/Ordinal.hs−1 Text/Inflections/Parse/CamelCase.hs+12−5 Text/Inflections/Parse/SnakeCase.hs+11−4 Text/Inflections/Types.hs+2−1 docs/CODE_OF_CONDUCT.md+35 docs/CONTRIBUTING.md+13 inflections.cabal+20−10 stack.yaml+1−6 stack.yaml.lock+12 test/Text/InflectionsSpec.hs+60−1

.travis.yml+7−8

@@ -9,14 +9,14 @@ cache:

1010matrix:

1111 include:

12− - env: CABALVER=1.24 GHCVER=7.6.3

13− addons: {apt: {packages: [cabal-install-1.24,ghc-7.6.3], sources: [hvr-ghc]}}

14− - env: CABALVER=1.24 GHCVER=7.8.4

15− addons: {apt: {packages: [cabal-install-1.24,ghc-7.8.4,],sources: [hvr-ghc]}}

1612 - env: CABALVER=1.24 GHCVER=7.10.3

1713 addons: {apt: {packages: [cabal-install-1.24,ghc-7.10.3],sources: [hvr-ghc]}}

1814 - env: CABALVER=1.24 GHCVER=8.0.2

1915 addons: {apt: {packages: [cabal-install-1.24,ghc-8.0.2],sources: [hvr-ghc]}}

16+ - env: CABALVER=2.2 GHCVER=8.2.2

17+ addons: {apt: {packages: [cabal-install-2.2,ghc-8.2.2], sources: [hvr-ghc]}}

18+ - env: CABALVER=2.2 GHCVER=8.4.3

19+ addons: {apt: {packages: [cabal-install-2.2,ghc-8.4.3], sources: [hvr-ghc]}}

2020

2121before_install:

2222 - export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$PATH

@@ -33,12 +33,11 @@ script:

3333 *) cabal configure --enable-tests -v2 -f dev ;;

3434 esac

3535 - cabal build

36+ - cabal sdist

3637 - case "$GHCVER" in

37− "7.6.3") true ;;

38− *) cabal test --show-details=always ;;

38+ "8.4.3") cabal haddock | grep "100%" | wc -l | grep "1" ;;

39+ *) cabal haddock | grep "100%" | wc -l | grep "13" ;;

3940 esac

40− - cabal sdist

41− - cabal haddock | grep "100%" | wc -l | grep "13"

4241

4342notifications:

4443 email: false

CHANGELOG.md+23

@@ -1,3 +1,26 @@

1+## Inflections 0.4.0.6

2+* Support `megaparsec` == 9.0

4+## Inflections 0.4.0.5

5+* Support `megaparsec` == 8.0

7+## Inflections 0.4.0.3

8+* Support `megaparsec` == 7.0*.

9+* **Drop support** for `GHC 7.8.4`.

10+

11+## Inflections 0.4.0.3

12+* Support `exceptions` == 0.10.*

13+

14+## Inflections 0.4.0.2

15+* Support `exceptions` == 0.9.*

16+

17+## Inflections 0.4.0.1

18+* Support `megaparsec` >= 6.4.0

19+

20+## Inflections 0.4.0.0

21+

22+* Update megaparsec to version 6.

23+

124## Inflections 0.3.0.0

225

326* A more type-safe API forbidding creation of invalid words.

LICENSE+17−18

@@ -1,22 +1,21 @@

2−

31MIT License

5−Permission is hereby granted, free of charge, to any person obtaining

6−a copy of this software and associated documentation files (the

7−"Software"), to deal in the Software without restriction, including

8−without limitation the rights to use, copy, modify, merge, publish,

9−distribute, sublicense, and/or sell copies of the Software, and to

10−permit persons to whom the Software is furnished to do so, subject to

11−the following conditions:

5+Permission is hereby granted, free of charge, to any person obtaining a copy

6+of this software and associated documentation files (the "Software"), to deal

7+in the Software without restriction, including without limitation the rights

8+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

9+copies of the Software, and to permit persons to whom the Software is

10+furnished to do so, subject to the following conditions:

1211

13−The above copyright notice and this permission notice shall be

14−included in all copies or substantial portions of the Software.

12+The above copyright notice and this permission notice shall be included in all

13+copies or substantial portions of the Software.

1514

16−THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

17−EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

18−MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

19−NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE

20−LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION

21−OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION

22−WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

15+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

16+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

17+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE

18+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

19+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

20+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE

21+SOFTWARE.

README.md+11−8

@@ -49,11 +49,10 @@ If you want to specify a custom default replacement or approximation table for

4949the `transliterate` function, you should instead call the `transliterateCustom`

5050function which accepts a String for replacements and a Map for substitution.

5151

52−## TODO

52+## Future work

5353

54−I'd like this library to implement other functions found in the Rails

55−inflections library. If you need one of those functions, please submit a pull

56−request!

54+Ideally, we want to implement other functions found in the Rails

55+inflections library. If you need one of those functions, please submit a pull request!

5756

5857## Further documentation

5958

@@ -64,10 +63,14 @@ For more information, please see the the

6463

6564Justin Leitgeb <justin@stackbuilders.com>

6665

67−## Contributing

66+## License

6867

69−You may submit pull requests to this repository on GitHub. Tests are appreciated with your contribution.

68+MIT, see [the LICENSE file](LICENSE).

7069

71−## License

70+## Contributing

71+

72+Do you want to contribute to this project? Please take a look at our [contributing guideline](/docs/CONTRIBUTING.md) to know how you can help us build it.

7273

73−MIT - see [the LICENSE file](LICENSE).

74+---

75+<img src="https://cdn.stackbuilders.com/media/images/Sb-supports.original.png" alt="Stack Builders" width="50%"></img>

76+[Check out our libraries](https://github.com/stackbuilders/) | [Join our team](https://www.stackbuilders.com/join-us/)

Text/Inflections.hs+32−11

@@ -111,11 +111,13 @@ module Text.Inflections

111111 , toUnderscore

112112 , toDashed

113113 , toCamelCased

114+ , toHumanized

114115 , betterThrow )

115116where

116117

117118import Control.Monad.Catch (MonadThrow (..))

118119import Data.Text (Text)

120+import Data.Void (Void)

119121import Text.Inflections.Camelize (camelize, camelizeCustom)

120122import Text.Inflections.Dasherize (dasherize)

121123import Text.Inflections.Data (Transliterations, defaultTransliterations)

@@ -140,7 +142,7 @@ import Prelude hiding (Word)

140142--

141143-- >>> toUnderscore "FooBarBazz"

142144-- "foo_bar_bazz"

143−toUnderscore :: Text -> Either (ParseError Char Dec) Text

145+toUnderscore :: Text -> Either (ParseErrorBundle Text Void) Text

144146toUnderscore = fmap underscore . parseCamelCase []

145147

146148-- | Transforms CamelCasedString to snake-cased-string-with-dashes.

@@ -149,26 +151,45 @@ toUnderscore = fmap underscore . parseCamelCase []

149151--

150152-- >>> toDashed "FooBarBazz"

151153-- "foo-bar-bazz"

152−toDashed :: Text -> Either (ParseError Char Dec) Text

154+toDashed :: Text -> Either (ParseErrorBundle Text Void) Text

153155toDashed = fmap dasherize . parseCamelCase []

154156

155157-- | Transforms underscored_text to CamelCasedText. If first argument is

156−-- 'True' then FirstCharacter in result string will be in upper case. If

157−-- 'False' then firstCharacter will be in lower case.

158+-- 'True' then the first character in the result string will be in upper case. If

159+-- 'False' then the first character will be in lower case.

158160--

159−-- > toCamelCased t = fmap (camelizeCustom t) . parseSnakeCase []

161+-- > toCamelCased c = fmap (camelizeCustom c) . parseSnakeCase []

160162--

161163-- >>> toCamelCased True "foo_bar_bazz"

162164-- "FooBarBazz"

163165-- >>> toCamelCased False "foo_bar_bazz"

164166-- "fooBarBazz"

165167toCamelCased

166− :: Bool -- ^ Capitalize the first character

167− -> Text -- ^ Input

168− -> Either (ParseError Char Dec) Text -- ^ Ouput

169−toCamelCased t = fmap (camelizeCustom t) . parseSnakeCase []

168+ :: Bool -- ^ Capitalize the first character

169+ -> Text -- ^ Input

170+ -> Either (ParseErrorBundle Text Void) Text -- ^ Output

171+toCamelCased c = fmap (camelizeCustom c) . parseSnakeCase []

170172

171−-- | Lift something of type @'Either' ('ParseError' 'Char' 'Dec') a@ to

173+-- | Transforms underscored_text to space-separated human-readable text.

174+-- If first argument is 'True' then the first character in the result

175+-- string will be in upper case. If 'False' then the first character will be

176+-- in lower case.

177+--

178+-- > toHumanized c = fmap (humanizeCustom c) . parseSnakeCase []

179+--

180+-- >>> toHumanized True "foo_bar_bazz"

181+-- "Foo bar bazz"

182+-- >>> toHumanized False "foo_bar_bazz"

183+-- "foo bar bazz"

184+--

185+-- /since 0.3.0.0/

186+toHumanized

187+ :: Bool -- ^ Capitalize the first character

188+ -> Text -- ^ Input

189+ -> Either (ParseErrorBundle Text Void) Text -- ^ Output

190+toHumanized c = fmap (humanizeCustom c) . parseSnakeCase []

191+

192+-- | Lift something of type @'Either' ('ParseError' 'Char' 'Void') a@ to

172193-- an instance of 'MonadThrow'. Useful when you want to shortcut on parsing

173194-- failures and you're in an instance of 'MonadThrow'.

174195--

@@ -176,6 +197,6 @@ toCamelCased t = fmap (camelizeCustom t) . parseSnakeCase []

176197--

177198-- /since 0.3.0.0/

178199

179−betterThrow :: MonadThrow m => Either (ParseError Char Dec) a -> m a

200+betterThrow :: MonadThrow m => Either (ParseErrorBundle Text Void) a -> m a

180201betterThrow (Left err) = throwM (InflectionParsingFailed err)

181202betterThrow (Right x) = return x

Text/Inflections/Ordinal.hs−1

@@ -16,7 +16,6 @@ module Text.Inflections.Ordinal

1616 , ordinal )

1717where

1818

19−import Data.Monoid ((<>))

2019import Data.Text (Text)

2120import qualified Data.Text as T

2221

Text/Inflections/Parse/CamelCase.hs+12−5

@@ -17,11 +17,16 @@ module Text.Inflections.Parse.CamelCase

1717 ( parseCamelCase )

1818where

1919

20−import Control.Applicative

20+# if MIN_VERSION_base(4,8,0)

21+import Control.Applicative (empty, many, (<|>))

22+#else

23+import Control.Applicative (empty, many, (<|>), (<$>), (<*))

24+#endif

2125import Data.Text (Text)

26+import Data.Void (Void)

2227import Text.Inflections.Types

23−import Text.Megaparsec

24−import Text.Megaparsec.Text

28+import Text.Megaparsec (Parsec, ParseErrorBundle, choice, eof, parse)

29+import Text.Megaparsec.Char

2530import qualified Data.Text as T

2631

2732#if MIN_VERSION_base(4,8,0)

@@ -31,6 +36,8 @@ import Data.Foldable

3136import Prelude hiding (elem)

3237#endif

3338

39+type Parser = Parsec Void Text

40+

3441-- | Parse a CamelCase string.

3542--

3643-- >>> bar <- mkAcronym "bar"

@@ -44,7 +51,7 @@ import Prelude hiding (elem)

4451parseCamelCase :: (Foldable f, Functor f)

4552 => f (Word 'Acronym) -- ^ Collection of acronyms

4653 -> Text -- ^ Input

47− -> Either (ParseError Char Dec) [SomeWord] -- ^ Result of parsing

54+ -> Either (ParseErrorBundle Text Void) [SomeWord] -- ^ Result of parsing

4855parseCamelCase acronyms = parse (parser acronyms) ""

4956

5057parser :: (Foldable f, Functor f)

@@ -59,7 +66,7 @@ acronym :: (Foldable f, Functor f)

5966 => f (Word 'Acronym)

6067 -> Parser (Word 'Acronym)

6168acronym acronyms = do

62− x <- T.pack <$> choice (string . T.unpack . unWord <$> acronyms)

69+ x <- choice (string . unWord <$> acronyms)

6370 case mkAcronym x of

6471 Nothing -> empty -- cannot happen if the system is sound

6572 Just acr -> return acr

Text/Inflections/Parse/SnakeCase.hs+11−4

@@ -16,11 +16,16 @@ module Text.Inflections.Parse.SnakeCase

1616 ( parseSnakeCase )

1717where

1818

19−import Control.Applicative

19+# if MIN_VERSION_base(4,8,0)

20+import Control.Applicative (empty, some)

21+#else

22+import Control.Applicative (empty, some, (<$>), (<*))

23+#endif

2024import Data.Text (Text)

25+import Data.Void (Void)

2126import Text.Inflections.Types

22−import Text.Megaparsec

23−import Text.Megaparsec.Text

27+import Text.Megaparsec (Parsec, ParseErrorBundle, eof, sepBy, parse)

28+import Text.Megaparsec.Char

2429import qualified Data.Text as T

2530

2631#if MIN_VERSION_base(4,8,0)

@@ -30,6 +35,8 @@ import Data.Foldable

3035import Prelude hiding (elem)

3136#endif

3237

38+type Parser = Parsec Void Text

39+

3340-- | Parse a snake_case string.

3441--

3542-- >>> bar <- mkAcronym "bar"

@@ -43,7 +50,7 @@ import Prelude hiding (elem)

4350parseSnakeCase :: (Foldable f, Functor f)

4451 => f (Word 'Acronym) -- ^ Collection of acronyms

4552 -> Text -- ^ Input

46− -> Either (ParseError Char Dec) [SomeWord] -- ^ Result of parsing

53+ -> Either (ParseErrorBundle Text Void) [SomeWord] -- ^ Result of parsing

4754parseSnakeCase acronyms = parse (parser acronyms) ""

4855

4956parser :: (Foldable f, Functor f)

Text/Inflections/Types.hs+2−1

@@ -33,6 +33,7 @@ where

3333import Control.Monad.Catch

3434import Data.Char (isAlphaNum)

3535import Data.Data (Data)

36+import Data.Void (Void)

3637import Data.Text (Text)

3738import Data.Typeable (Typeable)

3839import GHC.Generics (Generic)

@@ -135,7 +136,7 @@ instance Transformable (Word 'Acronym) where

135136-- /since 0.3.0.0/

136137

137138data InflectionException

138− = InflectionParsingFailed (ParseError Char Dec)

139+ = InflectionParsingFailed (ParseErrorBundle Text Void)

139140 | InflectionInvalidWord Text

140141 | InflectionInvalidAcronym Text

141142 deriving (Eq, Show, Typeable, Data, Generic)

docs/CODE_OF_CONDUCT.mdnew file+35

@@ -0,0 +1,35 @@

1+# Code of conduct

3+## Purpose

4+The primary goal of this Code of Conduct is to enable an open and welcoming environment. We pledge to making participation in our project a harassment-free experience for everyone, regardless of gender, sexual

5+orientation, ability, ethnicity, socioeconomic status, and religion (or lack thereof).

7+## General recommendations

8+Examples of behavior that contributes to creating a positive environment include:

10+- Using welcoming and inclusive language

11+- Being respectful of differing viewpoints and experiences

12+- Gracefully accepting constructive criticism

13+- Focusing on what is best for the community

14+- Showing empathy towards other community members

15+

16+Examples of unacceptable behavior by participants include:

17+

18+- The use of sexualized language or imagery and unwelcome sexual attention or advances

19+- Trolling, insulting/derogatory comments, and personal or political attacks

20+- Public or private harassment

21+- Publishing others' private information, such as a physical or electronic address, without explicit permission

22+- Other conduct which could reasonably be considered inappropriate in a professional setting

23+

24+## Maintainer responsibilities

25+Project maintainers are responsible for clarifying the standards of acceptable behavior and are expected to take appropriate and fair corrective action in response to any instances of unacceptable behavior.

26+

27+Project maintainers have the right and responsibility to remove, edit, or reject comments, commits, code, wiki edits, issues, and other contributions that are not aligned to this Code of Conduct, or to ban temporarily or permanently any contributor for other behaviors that they deem inappropriate, threatening, offensive, or harmful.

28+

29+## Scope

30+This Code of Conduct applies both within project spaces and in public spaces when an individual is representing the project or its community. Examples of representing a project or community include using an official project e-mail address, posting via an official social media account, or acting as an appointed representative at an online or offline event. Representation of a project may be further defined and clarified by project maintainers.

31+

32+## Enforcement

33+Instances of abusive, harassing, or otherwise unacceptable behavior may be reported by contacting the project team at [community@stackbuilders.com](mailto:community@stackbuilders.com). All complaints will be reviewed and investigated and will result in a response that is deemed necessary and appropriate to the circumstances. The project team is obligated to maintain confidentiality with regard to the reporter of an incident. Further details of specific enforcement policies may be posted separately.

34+

35+Project maintainers who do not follow or enforce the Code of Conduct in good faith may face temporary or permanent repercussions as determined by other members of the project's leadership.

docs/CONTRIBUTING.mdnew file+13

@@ -0,0 +1,13 @@

2+Thank you for your interest in contributing to this Stack Builders' library. To contribute, please take our [Code of Conduct](CODE_OF_CONDUCT.md) into account, along with the following recommendations:

4+- When submitting contributions to this repository, please make sure to discuss with the maintainer(s) the change you want to make. You can do this through an issue, or by sending an email to [community@stackbuilders.com](mailto:community@stackbuilders.com)

6+- Once the change has been discussed with the maintainer(s), feel free to open a Pull Request. Please include a link to the issue you're trying to solve, or a quick summary of the discussed changes.

8+- If adding any new features that you think should be considered in the README file, please add that information in your Pull Request.

10+- Once you get an approval from any of the maintainers, please merge your Pull Request. Keep in mind that some of our Stack Builders repositories use CI/CD pipelines, so you will need to pass all of the required checks before merging.

11+

12+## Getting help

13+Contact any of our current maintainers, or send us an email at [community@stackbuilders.com](mailto:community@stackbuilders.com) for more information. Thank you for contributing!

inflections.cabal+20−10

@@ -1,5 +1,5 @@

11name: inflections

2−version: 0.3.0.0

2+version: 0.4.0.6

33synopsis: Inflections library for Haskell

44description:

55 Inflections provides methods for singularization, pluralization,

@@ -48,10 +48,13 @@ library

4848 else

4949 ghc-options: -O2 -Wall

5050 build-depends: base >= 4.6 && < 5.0

51− , exceptions >= 0.6 && < 0.9

52− , megaparsec >= 5.0 && < 6.0

53− , text >= 0.2 && < 1.3

54− , unordered-containers >= 0.2.7 && < 0.3

51+ , exceptions

52+ , megaparsec

53+ , text

54+ , unordered-containers

55+ if !impl(ghc >= 7.10)

56+ build-depends: void == 0.7.*

57+

5558 default-language: Haskell2010

5659

5760test-suite test

@@ -59,12 +62,19 @@ test-suite test

5962 hs-source-dirs: test

6063 main-is: Spec.hs

6164 build-depends: inflections

62− , QuickCheck >= 2.7.6 && < 3.0

65+ , QuickCheck

6366 , base >= 4.6 && < 5.0

64− , hspec >= 2.0 && < 3.0

65− , hspec-megaparsec >= 0.3 && < 0.4

66− , megaparsec >= 5.1 && < 6.0

67− , text >= 0.2 && < 1.3

67+ , containers

68+ , hspec

69+ , hspec-megaparsec

70+ , megaparsec

71+ , text

72+ if !impl(ghc >= 7.10)

73+ build-depends: void == 0.7.*

74+

75+ if !impl(ghc >= 8.0)

76+ build-depends: semigroups == 0.18.*

77+

6878 if flag(dev)

6979 ghc-options: -Wall -Werror

7080 else

stack.yaml+1−6

@@ -1,6 +1 @@

1−resolver: lts-7.13

2−packages:

3−- '.'

4−extra-deps:

5−- hspec-megaparsec-0.3.0

6−- megaparsec-5.1.2

1+resolver: lts-21.3

stack.yaml.locknew file+12

@@ -0,0 +1,12 @@

1+# This file was autogenerated by Stack.

2+# You should not edit this file by hand.

3+# For more information, please see the documentation at:

4+# https://docs.haskellstack.org/en/stable/lock_files

6+packages: []

7+snapshots:

8+- completed:

9+ sha256: 97710f56bf093fca0ee5d8dbe19d96b654c752e405b66795b4baedd84a794c60

10+ size: 640010

11+ url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/3.yaml

12+ original: lts-21.3

test/Text/InflectionsSpec.hs+60−1

@@ -1,10 +1,60 @@

1+{-# OPTIONS_GHC -fno-warn-orphans #-}

2+{-# LANGUAGE CPP #-}

13{-# LANGUAGE OverloadedStrings #-}

35module Text.InflectionsSpec (spec) where

7+import Data.Void

58import Test.Hspec

69import Test.QuickCheck

710import Text.Inflections

11+import Text.Megaparsec

12+import Data.Text

13+

14+import qualified Data.List.NonEmpty as NE

15+import qualified Data.Set as S

16+

17+#if !MIN_VERSION_base(4,8,0)

18+import Control.Applicative

19+#endif

20+

21+instance Arbitrary Text where

22+ arbitrary = pack <$> (arbitrary :: Gen String)

23+

24+arbitraryParseErrorBundle :: Gen (ParseErrorBundle Text Void)

25+arbitraryParseErrorBundle = ParseErrorBundle <$> nonEmptyParseErrors <*> arbitraryPosState

26+ where

27+ posArbitrary = mkPos <$> ((+1) . abs <$> arbitrary)

28+ nonEmptyParseErrors :: Gen (NE.NonEmpty (ParseError Text Void))

29+ nonEmptyParseErrors = NE.fromList <$> listOf1 arbitraryParseError

30+ arbitrarySourcePos :: Gen SourcePos

31+ arbitrarySourcePos = SourcePos <$> arbitrary <*> posArbitrary <*> posArbitrary

32+ arbitraryPosState :: Gen (PosState Text)

33+ arbitraryPosState =

34+ PosState

35+ <$> arbitrary

36+ <*> arbitrary

37+ <*> arbitrarySourcePos

38+ <*> posArbitrary

39+ <*> arbitrary

40+

41+arbitraryParseError :: Gen (ParseError Text Void)

42+arbitraryParseError = oneof [trivialError, fancyError]

43+ where

44+ trivialError = TrivialError <$> arbitrary <*> maybeErrorItem <*> setErrorItem

45+ fancyError = FancyError <$> arbitrary <*> setErrorFancy

46+ setErrorFancy = S.fromList <$> listOf arbitraryErrorFancy

47+ maybeErrorItem = oneof [ Just <$> arbitraryErrorItem, return Nothing]

48+ setErrorItem = S.fromList <$> listOf arbitraryErrorItem

49+

50+arbitraryErrorFancy :: Gen (ErrorFancy e)

51+arbitraryErrorFancy = oneof [ ErrorFail <$> arbitrary ]

52+

53+arbitraryErrorItem :: (Arbitrary e) => Gen (ErrorItem e)

54+arbitraryErrorItem = oneof [ tokens_, labels_, return EndOfInput ]

55+ where

56+ tokens_ = Tokens <$> (NE.fromList <$> listOf1 arbitrary)

57+ labels_ = Label <$> (NE.fromList <$> listOf1 arbitrary)

858

959spec :: Spec

1060spec = do

@@ -27,12 +77,21 @@ spec = do

2777 it "converts snake case to camel case with the first word capitalized" $

2878 toCamelCased True "underscored_text" `shouldBe` Right "UnderscoredText"

2979

80+ describe "toHumanized" $ do

81+ context "when the first argument is False" $

82+ it "converts snake case to human-readable form with lower-case initial letter" $

83+ toHumanized False "underscored_text" `shouldBe` Right "underscored text"

84+ context "when the first argument is True" $

85+ it "converts snake case to human-readable form with the first word capitalized" $

86+ toHumanized True "underscored_text" `shouldBe` Right "Underscored text"

87+

3088 describe "betterThrow" $ do

3189 context "when given a parse error" $

3290 it "throws the correct exception" $

33− property $ \err ->

91+ property $ forAll arbitraryParseErrorBundle $ \err ->

3492 betterThrow (Left err) `shouldThrow`

3593 (== InflectionParsingFailed err)

94+

3695 context "when given a value in Right" $

3796 it "returns the value" $

3897 property $ \x ->