@@ -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