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

Add put functions for ease of use

parent d7cedefd
......@@ -18,3 +18,9 @@ mockRandom :: String -> IO String
mockRandom str = do
time <- fmap round getPOSIXTime
return $ toUpperBy str $ randoms $ mkStdGen time
putMockAlternate :: String -> IO ()
putMockAlternate = putStrLn . mockAlternate
putMockRandom :: String -> IO ()
putMockRandom str = mockRandom str >>= putStrLn
......@@ -3,9 +3,9 @@
GrEAt HAskeLL SCriPt to trANsForm tEXT inTo mockinG cASe
```
ghci> mockRandom "Ich mag Kääääsebrot" >>= putStrLn
ghci> putMockRandom "Ich mag Kääääsebrot"
IcH mAg KÄääÄSEBroT
ghci> putStrLn $ mockAlternate "Ich mag Kääääsebrot"
ghci> putMockAlternate "Ich mag Kääääsebrot"
ICh mAg KÄäÄäSeBrOt
```
......
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