parseranges.hs

import Data.List.Split(splitOn)
import qualified Data.Text as T

parse :: String -> [Int]
parse s | '-' `elem` s = expandedS
        | otherwise = singleS
    where expandedS = let (x':(y':[])) = splitOn "-" s
                          x = read x' :: Int
                          y = read y' :: Int
                      in [x..y]
          singleS = [read s :: Int]

parseranges :: String -> [Int]
parseranges s = let chunks = map (T.unpack . T.strip . T.pack) $ splitOn "," s
                in [x | chunk <- chunks, x <- parse chunk]