Remove debugging actions

Author: ali-abrar

src/Reflex/Process/GHCi.hs

@@ -162,7 +162,6 @@ ghciWatch p mexpr reload shutdown = do
   let reloadEvents = ((() <$ batchedFsEvents) <> reload)
 
   rec g <- ghci p sendExpr reloadEvents shutdown
-      performEvent_ $ liftIO . appendFile "x" . (<>"\n\n") . show . (take 1 . reverse . Map.elems) <$> _repl_finished g
       sendExpr <- delay 0.1 $ fforMaybe (_repl_finished g) $ \finished -> case reverse (Map.elems finished) of
             c@(Cmd cmd _ _):_ -> if displayCommand cmd == ":r" && hasErrors c
               then Nothing

src/Reflex/Process/Repl.hs

@@ -182,12 +182,10 @@ repl runRepl cmds isPrompt = do
       new_n <- liftIO $ atomicModifyIORef' n $ \n' -> (succ n', n')
       pure $ (new_n, input')
   ixedInput <- foldDyn Map.union Map.empty newIxedInput
-  performEvent_ $ ffor (updated ixedInput) $ liftIO . appendFile "input" . show
   proc <- createProcess runRepl $ ProcessConfig
     { _processConfig_stdin = fmapMaybe sendCommands cmds
     , _processConfig_signal = never
     }
-  performEvent_ $ ffor (_process_stderr proc) $ liftIO . C8.appendFile "stderr"
   pb <- getPostBuild
   exited <- performEventAsync $ ffor pb $ \_ cb ->
     liftIO $ void $ forkIO $ cb <=< P.waitForProcess $ _process_handle proc