Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (8 sloc) 222 Bytes
tabStop = 8
main = do cs <- getContents
putStr $ expand cs
expand :: String -> String
expand cs = concatMap expandTab cs
expandTab :: Char -> String
expandTab '\t' = replicate tabStop ' '
expandTab c = [c]