@@ -174,6 +174,11 @@ iputStrLn s = do i <- getIState
174 RawOutput h -> runIO $ hPutStrLn h s
174 RawOutput h -> runIO $ hPutStrLn h s
175 IdeMode n h -> runIO . hPutStrLn h $ convSExp "write-string" s n
175 IdeMode n h -> runIO . hPutStrLn h $ convSExp "write-string" s n
177+iputStr :: String -> Idris ()
178+iputStr s = do i <- getIState
179+ case idris_outputmode i of
180+ RawOutput h -> runIO $ hPutStr h s
181+ IdeMode n h -> runIO . hPutStr h $ convSExp "write-string" s n
178idemodePutSExp :: SExpable a => String -> a -> Idris ()
183idemodePutSExp :: SExpable a => String -> a -> Idris ()
179idemodePutSExp cmd info = do i <- getIState
184idemodePutSExp cmd info = do i <- getIState