Commit df62bd56 authored by Andrew Gibiansky's avatar Andrew Gibiansky

removed temporary

parent 2415aefd
...@@ -91,8 +91,7 @@ library ...@@ -91,8 +91,7 @@ library
stm -any, stm -any,
text -any, text -any,
utf8-string -any, utf8-string -any,
vector -any, vector -any
temporary ==1.2.*
exposed-modules: IHaskell.Display exposed-modules: IHaskell.Display
IHaskell.Convert IHaskell.Convert
......
...@@ -25,7 +25,6 @@ import qualified Data.ByteString.Char8 as Char ...@@ -25,7 +25,6 @@ import qualified Data.ByteString.Char8 as Char
import Data.Aeson (Value) import Data.Aeson (Value)
import System.Directory(getTemporaryDirectory, setCurrentDirectory) import System.Directory(getTemporaryDirectory, setCurrentDirectory)
import System.IO.Temp(createTempDirectory)
import Control.Concurrent.STM.TChan import Control.Concurrent.STM.TChan
...@@ -135,6 +134,5 @@ switchToTmpDir = void (try switchDir :: IO (Either SomeException ())) ...@@ -135,6 +134,5 @@ switchToTmpDir = void (try switchDir :: IO (Either SomeException ()))
where where
switchDir = switchDir =
getTemporaryDirectory >>= getTemporaryDirectory >>=
flip createTempDirectory "ihaskell-display-tmp" >>=
setCurrentDirectory setCurrentDirectory
...@@ -705,10 +705,9 @@ evalCommand output (Expression expr) state = do ...@@ -705,10 +705,9 @@ evalCommand output (Expression expr) state = do
out <- useDisplay displayExpr out <- useDisplay displayExpr
-- Register the `it` object as a widget. -- Register the `it` object as a widget.
out' <- if isWidget if isWidget
then registerWidget out then registerWidget out
else return out else return out
return out'
else do else do
-- Evaluate this expression as though it's just a statement. -- Evaluate this expression as though it's just a statement.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment