splitOn :: Eq a => a -- ^ separator
        -> [a] -- ^ list to split
        -> [[a]]
splitOn x = filter (not . null) . splitBy x
splitOn :: Eq a => a -- ^ separator
        -> [a] -- ^ list to split
        -> [[a]]
splitOn x = filter (not . null) . splitBy x
splitOn x = filter (not . null) . splitBy x