Commit cfe3c99b authored by Nicolas Lenz's avatar Nicolas Lenz
Browse files

Rename mockSpace to letterspace

parent 2a454153
......@@ -30,9 +30,9 @@ styles :: [(String, String -> IO String)]
styles = [
("random", mockRandom),
("alternate", toIO mockAlternate),
("space", toIO $ mockSpace 1),
("space2", toIO $ mockSpace 2),
("space3", toIO $ mockSpace 3),
("space", toIO $ letterspace 1),
("space2", toIO $ letterspace 2),
("space3", toIO $ letterspace 3),
("upper", toIO $ map toUpper),
("lower", toIO $ map toLower)]
......
module Mock (mockAlternate, mockRandom, mockSpace) where
module Mock (mockAlternate, mockRandom, letterspace) where
import Data.Char
import Data.List
......@@ -24,5 +24,5 @@ mockRandom str = do
return $ toUpperBy str $ randoms $ mkStdGen time
-- |Letterspaces a String with the given number of blanks between the Chars.
mockSpace :: Int -> String -> String
mockSpace n = intercalate (replicate n ' ') . map (\c -> [c])
letterspace :: Int -> String -> String
letterspace n = intercalate (replicate n ' ') . map (\c -> [c])
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment