Commit eee61c58 authored by Nicolas Lenz's avatar Nicolas Lenz

Add missing haddock documentation.

parent 0ee2b62b
......@@ -62,6 +62,7 @@ toDouble c
| 97 <= ord c && ord c <= 122 = chr $ ord c - 97 + 120146 -- Lowercase letter
toDouble c = c
-- |Transforms a double-struck letter into its normal variant. If it isn't double-struck, it is left unchanged.
fromDouble :: Char -> Char
fromDouble c = case ord c of
8450 -> 'C'
......
......@@ -5,6 +5,7 @@ module Mock.Help (styleHelp) where
import qualified Data.Text as T
import Data.Text (Text)
-- |Returns help string for a given style name (or a fitting message if no help is available).
styleHelp :: Text -> Text
styleHelp styleName = case styleName of
"random" -> "Flips lowercase characters pseudo-randomly into uppercase letters."
......
Markdown is supported
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