Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (6 sloc) 233 Bytes
import Text.Regex.Posix ((=~))
pattern :: String -> [String]
pattern = filter_par . (flip (=~) $ "\\([a-z]+\\)|[a-z]")
where filter_par = map (filter ((=~ "[a-z]") . show))
expand :: [String] -> [String]
expand ((x:[]):xs) = []