From 6719aedde34c3a4f0ccb78931968c6fe490b3282 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 26 Mar 2004 20:08:30 +0000
Subject: Better help.

---
 src/tools/MkHelpFile.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/tools')

diff --git a/src/tools/MkHelpFile.hs b/src/tools/MkHelpFile.hs
index 9355a688e..3b88525a9 100644
--- a/src/tools/MkHelpFile.hs
+++ b/src/tools/MkHelpFile.hs
@@ -7,6 +7,13 @@ main = do
 
 mkHsFile ss =
   "module HelpFile where\n\n" ++
+  "import Operations\n\n" ++
+  "txtHelpFileSummary =\n" ++
+  "  unlines $ map (concat . take 1 . lines) $ paragraphs txtHelpFile\n\n" ++
+  "txtHelpCommand c =\n" ++ 
+  "  case lookup c [(takeWhile (/=',') p,p) | p <- paragraphs txtHelpFile] of\n" ++
+  "    Just s -> s\n" ++
+  "    _ -> \"Command not found.\"\n\n" ++
   "txtHelpFile =\n" ++
   unlines (map mkOne ss) ++
   "  []"
-- 
cgit v1.2.3