25 lines
611 B
Plaintext
25 lines
611 B
Plaintext
-- repl extensions
|
|
:set -XOverloadedStrings
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- happy/alex: override :r to rebuild parsers
|
|
:set -package process
|
|
|
|
:{
|
|
import System.Exit qualified
|
|
import System.Process qualified
|
|
|
|
_reload_and_make _ = do
|
|
p <- System.Process.spawnCommand "make -f Makefile_happysrcs"
|
|
r <- System.Process.waitForProcess p
|
|
case r of
|
|
System.Exit.ExitSuccess -> pure ":reload"
|
|
_ -> pure ""
|
|
:}
|
|
|
|
:def! r _reload_and_make
|
|
|
|
--------------------------------------------------------------------------------
|
|
|