Add some additional common character generators

Author: garyb

src/Data/Char/Gen.purs

@@ -2,8 +2,9 @@ module Data.Char.Gen where
 
 import Prelude
 
-import Control.Monad.Gen (class MonadGen, chooseInt)
+import Control.Monad.Gen (class MonadGen, chooseInt, oneOf)
 import Data.Char as C
+import Data.NonEmpty ((:|))
 
 -- | Generates a character of the Unicode basic multilingual plain.
 genUnicodeChar :: forall m. MonadGen m => m Char
@@ -20,3 +21,15 @@ genAsciiChar' = C.fromCharCode <$> chooseInt 0 127
 -- | Generates a character that is a numeric digit.
 genDigitChar :: forall m. MonadGen m => m Char
 genDigitChar = C.fromCharCode <$> chooseInt 48 57
+
+-- | Generates a character from the basic latin alphabet.
+genAlpha :: forall m. MonadGen m => m Char
+genAlpha = oneOf (genAlphaLowercase :| [genAlphaUppercase])
+
+-- | Generates a lowercase character from the basic latin alphabet.
+genAlphaLowercase :: forall m. MonadGen m => m Char
+genAlphaLowercase = C.fromCharCode <$> chooseInt 97 122
+
+-- | Generates an uppercase character from the basic latin alphabet.
+genAlphaUppercase :: forall m. MonadGen m => m Char
+genAlphaUppercase = C.fromCharCode <$> chooseInt 65 90