Skip to content

Commit cb28287

Browse files
mpickeringcocreature
authored andcommitted
Pass shake-profiling option when not using --lsp (#385)
1 parent 956e11d commit cb28287

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

exe/Main.hs

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -130,7 +130,11 @@ main = do
130130
let grab file = fromMaybe (head sessions) $ do
131131
cradle <- Map.lookup file filesToCradles
132132
Map.lookup cradle cradlesToSessions
133-
ide <- initialise def mainRule (pure $ IdInt 0) (showEvent lock) (logger Info) (defaultIdeOptions $ return $ return . grab) vfs
133+
134+
let options =
135+
(defaultIdeOptions $ return $ return . grab)
136+
{ optShakeProfiling = argsShakeProfiling }
137+
ide <- initialise def mainRule (pure $ IdInt 0) (showEvent lock) (logger Info) options vfs
134138

135139
putStrLn "\nStep 6/6: Type checking the files"
136140
setFilesOfInterest ide $ Set.fromList $ map toNormalizedFilePath files

0 commit comments

Comments
 (0)