Fix merge mistake

Author: nficca

integration-test/Analysis/FicusSpec.hs

@@ -56,8 +56,8 @@ spec = do
       case result of
         Success _warnings analysisResult -> do
           case analysisResult of
-            Just (FicusAnalysisResults{snippetScanResults = Just (FicusSnippetScanResults analysisId)}) -> do
-              analysisId `shouldSatisfy` (> 0)
+            Just (FicusAnalysisResults{snippetScanResults = Just results}) -> do
+              ficusSnippetScanResultsAnalysisId results `shouldSatisfy` (> 0)
             _ -> do
               -- No snippet scan results returned - this is acceptable for integration testing
               True `shouldBe` True