diff options
Diffstat (limited to 'src/Eval.hs')
| -rw-r--r-- | src/Eval.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 95f0a34..6f8a0a5 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -194,7 +194,10 @@ evalCommand inp s@(EnvState env@(Environment envDefs) conf cache) = \case full <- fullPath path t <- getModificationTime full if t > mtime - then putStrLn "reload" >> evalCommand inp s (Input full) >> monitor t + then + putStrLn "\ESC[2Jreload" + >> evalCommand inp s (Input full) + >> monitor t else monitor t in getCurrentTime >>= monitor Import path namespace -> do -- TODO: Merge with Input (very similar) |