reload = r command

src/GF/Shell/HelpFile.hs

@@ -81,6 +81,9 @@ txtHelpFile =
   "\n  examples:" ++
   "\n      i English.gf                      -- ordinary import of Concrete" ++
   "\n      i -retain german/ParadigmsGer.gf  -- import of Resource to test" ++
+  "\n" ++
+  "\nr, reload: r" ++
+  "\n      Executes the previous import (i) command." ++
   "\n      " ++
   "\nrl, remove_language: rl Language" ++
   "\n      Takes away the language from the state." ++

src/GF/Shell/PShell.hs

@@ -157,7 +157,7 @@ pCommand ws = case ws of
 
   "es" : []     -> aImpure ICEditSession
   "ts" : []     -> aImpure ICTranslateSession
-
+  "r"  : []     -> aImpure ICReload
   _             -> (CVoid, [])
 
  where

src/GF/Shell/ShellCommands.hs

@@ -97,8 +97,12 @@ data Command =
 
 -- to isolate the commands that are executed on top level
 data ImpureCommand = 
-    ICQuit | ICExecuteHistory FilePath | ICEarlierCommand Int
-  | ICEditSession | ICTranslateSession
+    ICQuit 
+  | ICExecuteHistory FilePath 
+  | ICEarlierCommand Int
+  | ICEditSession 
+  | ICTranslateSession
+  | ICReload
 
 type CommandOpt = (Command, Options)