Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Software
Mock
Commits
eee61c58
Commit
eee61c58
authored
Dec 18, 2018
by
Nicolas Lenz
Browse files
Add missing haddock documentation.
parent
0ee2b62b
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/Mock.hs
View file @
eee61c58
...
...
@@ -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'
...
...
src/Mock/Help.hs
View file @
eee61c58
...
...
@@ -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."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment