diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Plugin/Help.hs | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/src/Plugin/Help.hs b/src/Plugin/Help.hs index b29d1b9..ebe3760 100644 --- a/src/Plugin/Help.hs +++ b/src/Plugin/Help.hs @@ -23,17 +23,14 @@ help = do helpAction :: PluginAction helpAction _ = do + plugins' <- sequence plugins return $ Right $ T.intercalate "\n" - -- [T.justifyRight longestCommandLen ' ' (command p) - -- `T.append` " – " - -- `T.append` description p - -- | p <- plugins'] + [T.justifyRight (longestCommandLen plugins') ' ' (command p) + `T.append` " – " + `T.append` description p + | p <- plugins'] where - longestCommandLen = foldr (max) 0 (map (T.length . command) plugins) - - helpText plugin = T.justifyRight longestCommandLen ' ' (command plugin) - `T.append` " – " - `T.append` description plugin + longestCommandLen plugins = foldr (max) 0 (map (T.length . command) plugins) plugins :: [Bot Plugin] plugins = PL.plugins ++ [help] |