blob: 0694cd9a3a34e69082e07408f0a06e8ae115b503 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--------------------------------------------------------------------------------
module Language.Haskell.Stylish.Step.Tabs
( step
) where
--------------------------------------------------------------------------------
import Language.Haskell.Stylish.Step
--------------------------------------------------------------------------------
removeTabs :: Int -> String -> String
removeTabs spaces = concatMap removeTabs'
where
removeTabs' '\t' = replicate spaces ' '
removeTabs' x = [x]
--------------------------------------------------------------------------------
step :: Int -> Step
step spaces = makeStep "Tabs" $ \ls _ -> map (removeTabs spaces) ls
|