Remove logging.

Author: gdevanla

plugins/default/src/Ide/Plugin/Pragmas.hs

@@ -23,7 +23,6 @@ import           Language.Haskell.LSP.Types
 
 import qualified Language.Haskell.LSP.Core as LSP
 import qualified Language.Haskell.LSP.VFS as VFS
-import Development.IDE.Core.Shake (ShakeExtras(logger))
 
 -- ---------------------------------------------------------------------
 
@@ -166,24 +165,14 @@ possiblePragmas =
 
 -- ---------------------------------------------------------------------
 
-logStuff :: IdeState -> T.Text -> IO ()
-logStuff ide = logInfo (logger (shakeExtras ide))
-
 completion :: CompletionProvider
 completion lspFuncs _ide complParams = do
     let (TextDocumentIdentifier uri) = complParams ^. J.textDocument
         position = complParams ^. J.position
-    logStuff _ide (T.pack "test ---------------------.......")
-    putStrLn $ "Uri" ++ show uri
-    putStrLn $ "nor uri" ++ show (toNormalizedUri uri)
-    logStuff _ide (T.pack "--------------------------------.......")
     contents <- LSP.getVirtualFileFunc lspFuncs $ toNormalizedUri uri
     fmap Right $ case (contents, uriToFilePath' uri) of
         (Just cnts, Just _path) -> do
             pfix <- VFS.getCompletionPrefix position cnts
-            logStuff _ide (T.pack "test &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.......")
-            logStuff _ide $ "pfix" <> (T.pack. show $ pfix)
-            logStuff _ide (T.pack "test &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.......")
             return $ result pfix
             where
                 result (Just pfix)