Add 'test' command for running QuickCheck props

2015-12-16 00:25:15 +01:00
parent 41b9c0bbf2
commit 7374f1ba17
5 changed files with 52 additions and 0 deletions
--- a/src/GHCMod.hs
+++ b/src/GHCMod.hs
@@ -161,6 +161,7 @@ ghcCommands (CmdMapFile f) =
  >>  return ""
 ghcCommands (CmdUnmapFile f) = unloadMappedFile f >> return ""
 ghcCommands (CmdQuit) = liftIO exitSuccess
+ghcCommands (CmdTest file) = test file
 ghcCommands cmd = throw $ InvalidCommandLine $ Left $ show cmd

 newtype InvalidCommandLine = InvalidCommandLine (Either String String)