File tree 1 file changed +3
-3
lines changed
1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -136,9 +136,10 @@ main = do
136
136
putStrLn " \n Step 3/4: Initializing the IDE"
137
137
vfs <- makeVFSHandle
138
138
debouncer <- newAsyncDebouncer
139
- let dummyWithProg _ _ f = f (const (pure () ))
139
+ let logLevel = if argsVerbose then minBound else Info
140
+ dummyWithProg _ _ f = f (const (pure () ))
140
141
sessionLoader <- loadSession dir
141
- ide <- initialise def mainRule (pure $ IdInt 0 ) (showEvent lock) dummyWithProg (const (const id )) (logger minBound ) debouncer (defaultIdeOptions sessionLoader) vfs
142
+ ide <- initialise def mainRule (pure $ IdInt 0 ) (showEvent lock) dummyWithProg (const (const id )) (logger logLevel ) debouncer (defaultIdeOptions sessionLoader) vfs
142
143
143
144
putStrLn " \n Step 4/4: Type checking the files"
144
145
setFilesOfInterest ide $ HashSet. fromList $ map toNormalizedFilePath' files
@@ -169,4 +170,3 @@ showEvent _ (EventFileDiagnostics _ []) = return ()
169
170
showEvent lock (EventFileDiagnostics (toNormalizedFilePath' -> file) diags) =
170
171
withLock lock $ T. putStrLn $ showDiagnosticsColored $ map (file,ShowDiag ,) diags
171
172
showEvent lock e = withLock lock $ print e
172
-
You can’t perform that action at this time.
0 commit comments