@@ -249,12 +249,9 @@ splitCommaList :: String -> [String] splitCommaList l = let (first,rest) = break (== ',') l first' = lrStrip first -{- in if null rest - then if null first' then [] else [first'] - else first' : splitCommaList (tail rest) -} in case rest of - [] -> if null first' then [] else [first'] - (r:rs) -> first' : splitCommaList rs + [] -> if null first' then [] else [first'] + (_:rs) -> first' : splitCommaList rs lrStrip :: String -> String lrStrip = reverse . dropWhile isWhitespace . reverse . dropWhile isWhitespace Network/Gitit/Config.hs @@ -353,8 +353,8 @@ highlightSource (Just source) = do file <- getFileName -- let lang' = head $ languagesByExtension $ takeExtension file let lang' = case languagesByExtension $ takeExtension file of - [] -> error "highlightSource, no lang'" - (l:ls) -> l + [] -> error "highlightSource, no lang'" + (l:_) -> l case highlightAs lang' (filter (/='\r') source) of Left _ -> mzero Right res -> return $ formatAsXHtml [OptNumberLines] lang' $! res Network/Gitit/ContentTransformer.hs @@ -237,12 +237,9 @@ startsWithUnderscore _ = False splitOn :: Eq a => a -> [a] -> [[a]] splitOn c cs = let (next, rest) = break (==c) cs -{- in if null rest - then [next] - else next : splitOn c (tail rest) -} in case rest of - [] -> [next] - (r:rs) -> next : splitOn c rs + [] -> [next] + (_: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 43886f50f370e89eec2e94d548aec34060f4b4eb John MacFarlane jgm@johnsmac.gateway.2wire.net http://github.com/jgm/gitit/commit/0732a484d47173b4cee246a13ed65ba67974d254 0732a484d47173b4cee246a13ed65ba67974d254 2009-10-28T23:05:42-07:00 2009-10-28T23:05:42-07:00 Code reformatting to avoid warnings. a67ff9dd6336d4c90c4a7e3e5fc85083439109a9 John MacFarlane jgm@johnsmac.gateway.2wire.net