hsdev 0.2.2.1 → 0.2.2.2

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• hsdev.cabal +1/−1
• src/HsDev/Client/Commands.hs +4/−4

@@ -1,5 +1,5 @@ name:                hsdev
-version:             0.2.2.1
+version:             0.2.2.2
 synopsis:            Haskell development library
 description:
   Haskell development library and tool with support of autocompletion, symbol info, go to declaration, find references, hayoo search etc.

@@ -200,14 +200,14 @@ runCommand (Lint fs) = toValue $ do
 	liftIO $ hsdevLift $ liftM concat $ mapM (\(FileSource f c) -> HLint.hlint f c) fs
 runCommand (Check fs ghcs') = toValue $ Log.scope "check" $ do
-	ensureUpToDate (Update.UpdateOptions [] ghcs' False False) fs
+	-- ensureUpToDate (Update.UpdateOptions [] ghcs' False False) fs
 	let
 		checkSome file fn = Log.scope "checkSome" $ do
 			m <- setFileSourceSession ghcs' file
 			inSessionGhc $ fn m
 	liftM concat $ mapM (\(FileSource f c) -> checkSome f (\m -> Check.check ghcs' m c)) fs
 runCommand (CheckLint fs ghcs') = toValue $ do
-	ensureUpToDate (Update.UpdateOptions [] ghcs' False False) fs
+	-- ensureUpToDate (Update.UpdateOptions [] ghcs' False False) fs
 	let
 		checkSome file fn = Log.scope "checkSome" $ do
 			m <- setFileSourceSession ghcs' file
@@ -216,7 +216,7 @@ 	lintMsgs <- liftIO $ hsdevLift $ liftM concat $ mapM (\(FileSource f c) -> HLint.hlint f c) fs
 	return $ checkMsgs ++ lintMsgs
 runCommand (Types fs ghcs') = toValue $ do
-	ensureUpToDate (Update.UpdateOptions [] ghcs' False False) fs
+	-- ensureUpToDate (Update.UpdateOptions [] ghcs' False False) fs
 	liftM concat $ forM fs $ \(FileSource file msrc) -> do
 		m <- setFileSourceSession ghcs' file
 		inSessionGhc $ Types.fileTypes ghcs' m msrc
@@ -241,7 +241,7 @@ 				return corrs'
 	liftM concat $ mapM runFix files
 runCommand (GhcEval exprs mfile) = toValue $ do
-	ensureUpToDate (Update.UpdateOptions [] [] False False) (maybeToList mfile)
+	-- ensureUpToDate (Update.UpdateOptions [] [] False False) (maybeToList mfile)
 	ghcw <- askSession sessionGhc
 	case mfile of
 		Nothing -> inSessionGhc ghciSession