@@ -248,9 +248,12 @@ splitCommaList :: String -> [String] splitCommaList l = let (first,rest) = break (== ',') l first' = lrStrip first - in if null rest +{- in if null rest then if null first' then [] else [first'] - else first' : splitCommaList (tail rest) + else first' : splitCommaList (tail rest) -} + in case rest of + [] -> if null first' then [] else [first'] + (r:rs) -> first' : splitCommaList rs lrStrip :: String -> String lrStrip = reverse . dropWhile isWhitespace . reverse . dropWhile isWhitespace Network/Gitit/Config.hs @@ -236,9 +236,12 @@ startsWithUnderscore _ = False splitOn :: Eq a => a -> [a] -> [[a]] splitOn c cs = let (next, rest) = break (==c) cs - in if null rest +{- in if null rest then [next] - else next : splitOn c (tail rest) + else next : splitOn c (tail rest) -} + in case rest of + [] -> [next] + (r:rs) -> next : splitOn c rs -- | Returns path portion of URI, without initial @\/@. -- Consecutive spaces are collapsed. We don't want to distinguish Network/Gitit/Framework.hs 2718b93ea5bcca0e1117ce7aef1a8641ee13d086 Thomas Hartman thomas@modernfeed.com http://github.com/jgm/gitit/commit/965336a5284c23caca7ac5f9625ecaee9f1b3546 965336a5284c23caca7ac5f9625ecaee9f1b3546 2009-10-24T09:06:23-07:00 2009-10-24T09:06:23-07:00 use case expression instead of unsafe tail. 704b8904c8b27d01adf80323940638331ebeb1e2 Thomas Hartman thomas@modernfeed.com