new :: forall env . HasRandom env => RIO env Code
new = Code . pack <$> replicateM size char
  where char = (alphabet !) <$> Random.range (0, lastIndex)

-- | Parse 'Code' from 'Text'
new :: forall env . HasRandom env => RIO env Code
new = Code . pack <$> replicateM size char
  where char = (alphabet !) <$> Random.range (0, lastIndex)

-- | Parse 'Code' from 'Text'
new = Code . pack <$> replicateM size char
  where char = (alphabet !) <$> Random.range (0, lastIndex)

-- | Parse 'Code' from 'Text'