1 files changed, 4 insertions, 4 deletions
diff --git a/src/compiler/GF/Command/Help.hs b/src/compiler/GF/Command/Help.hs
index 2a736088d..eb50c6d35 100644
--- a/src/compiler/GF/Command/Help.hs
+++ b/src/compiler/GF/Command/Help.hs
@@ -1,6 +1,6 @@
 module GF.Command.Help where
 import GF.Command.Messages
-import GF.Command.Abstract(isOpt,getCommandOp,showExpr)
+import GF.Command.Abstract(isOpt,getCommandOp)
 import GF.Command.CommandInfo
 
 import GF.Data.Operations((++++))
@@ -75,13 +75,13 @@ helpCommand allCommands =
        ("license","show copyright and license information"),
        ("t2t","output help in txt2tags format")
        ],
-     exec = \opts ts ->
+     exec = \opts args ->
        let
-        msg = case ts of
+        msg = case toStrings args of
           _ | isOpt "changes" opts -> changesMsg
           _ | isOpt "coding" opts -> codingMsg
           _ | isOpt "license" opts -> licenseMsg
-          [t] -> let co = getCommandOp (showExpr [] t) in
+          [s] -> let co = getCommandOp s in
                  case Map.lookup co allCommands of
                    Just info -> commandHelp' opts True (co,info)
                    _ -> "command not found"