diff options
Diffstat (limited to 'src/GF/Devel/Shell.hs')
| -rw-r--r-- | src/GF/Devel/Shell.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Devel/Shell.hs b/src/GF/Devel/Shell.hs index 81569b8d1..f0aaf193b 100644 --- a/src/GF/Devel/Shell.hs +++ b/src/GF/Devel/Shell.hs @@ -46,7 +46,7 @@ treat mgr s = case words s of let ts = parse mgr lang cat $ unwords ws mapM_ (putStrLn . showTree) ts "h":_ -> printHelp mgr - _ -> lins $ readTree mgr s + "l" : ws -> lins $ readTree mgr $ unwords ws where grammar = gfcc mgr langs = languages mgr |