GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-12 12:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

purge in pm

Browse Source
This commit is contained in:
aarne
2006-11-07 12:56:16 +00:00
parent 790ad6d4a5
commit e8bad7f7e0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Shell.hs
View File

@@ -444,8 +444,8 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
CPrintLanguages -> justOutput opts CPrintLanguages -> justOutput opts
(putStrLn $ unwords $ map prLanguage $ allLanguages st) sa (putStrLn $ unwords $ map prLanguage $ allLanguages st) sa
CPrintMultiGrammar -> do CPrintMultiGrammar -> do
sa' <- changeState purgeShellState sa let cgr' = canModules $ purgeShellState st
returnArg (AString (optPrintMultiGrammar opts cgr)) sa' returnArg (AString (optPrintMultiGrammar opts cgr')) sa
CShowGrammarGraph -> do CShowGrammarGraph -> do
---- sa' <- changeState purgeShellState sa ---- sa' <- changeState purgeShellState sa
let g0 = writeFile "grphtmp.dot" $ visualizeCanonGrammar opts cgr let g0 = writeFile "grphtmp.dot" $ visualizeCanonGrammar opts cgr