runWithTypos language content expectations = do
  let spec = emptyAnalysisSpec { smellsSet = (allSmellsBut []), expectations = Just expectations }
  result <- analyse (Analysis (CodeSample language content) spec)
  return $ smells result
runWithTypos language content expectations = do
  let spec = emptyAnalysisSpec { smellsSet = (allSmellsBut []), expectations = Just expectations }
  result <- analyse (Analysis (CodeSample language content) spec)
  return $ smells result
runWithTypos language content expectations = do
  let spec = emptyAnalysisSpec { smellsSet = (allSmellsBut []), expectations = Just expectations }
  result <- analyse (Analysis (CodeSample language content) spec)
  return $ smells result