searchStringGen :: Gen String
searchStringGen = listOf $ frequency [ (7, arbitraryPrintableChar)
                                     , (3, elements ['_', '%']) ]
searchStringGen :: Gen String
searchStringGen = listOf $ frequency [ (7, arbitraryPrintableChar)
                                     , (3, elements ['_', '%']) ]
searchStringGen = listOf $ frequency [ (7, arbitraryPrintableChar)
                                     , (3, elements ['_', '%']) ]