runExcept language content smells = analyse (smellsAnalysis (CodeSample language content) (allSmellsBut smells))
runExcept language content smells = analyse (smellsAnalysis (CodeSample language content) (allSmellsBut smells))
runExcept language content smells = analyse (smellsAnalysis (CodeSample language content) (allSmellsBut smells))