public void apply(final IDocument document) {
IProject p = marker.getResource().getProject();
IFile f = BuildWrapperPlugin.getCabalFile(p);
IDocumentProvider prov = new TextFileDocumentProvider();
try {
prov.connect(f);
IDocument doc = prov.getDocument(f);
PackageDescription pd = PackageDescriptionLoader.load(f);
int length = pd.getStanzas().size();
for (int a = 0; a < length; a++) {
PackageDescriptionStanza pds = pd.getStanzas().get(a);
CabalSyntax cs = pds.getType();
if (CabalSyntax.SECTION_EXECUTABLE.equals(cs)
|| CabalSyntax.SECTION_LIBRARY.equals(cs)
|| CabalSyntax.SECTION_TESTSUITE.equals(cs)) {
RealValuePosition rvp = pds.addToPropertyList(CabalSyntax.FIELD_BUILD_DEPENDS, pkg);
if (rvp != null) {
rvp.updateDocument(doc);
pd = PackageDescriptionLoader.load(doc.get());
}
}
}
prov.saveDocument(new NullProgressMonitor(), f, doc, true);
} catch (CoreException ce) {
HaskellUIPlugin.log(ce);
}
}
public void contributeOnNewProject(final PackageDescription pd) {
IHsImplementation impl = CompilerManager.getInstance().getCurrentHsImplementation();
if (impl != null && impl.getType().equals(HsImplementationType.GHC)) {
List<String> ls = new CompilerParams().construct(impl.getVersion());
StringBuilder sbOptions = new StringBuilder();
StringBuilder sbExtensions = new StringBuilder();
for (String s : ls) {
if (s != null) {
if (s.startsWith("-X")) { // $NON-NLS-1$
if (sbExtensions.length() > 0) {
sbExtensions.append(" "); // $NON-NLS-1$
}
sbExtensions.append(s.substring(2));
} else {
if (sbOptions.length() > 0) {
sbOptions.append(" "); // $NON-NLS-1$
}
sbOptions.append(s);
}
}
}
String valOptions = sbOptions.toString();
String valExtensions = sbExtensions.toString();
for (PackageDescriptionStanza pds : pd.getStanzas()) {
if (CabalSyntax.SECTION_EXECUTABLE.equals(pds.getType())
|| CabalSyntax.SECTION_LIBRARY.equals(pds.getType())
|| CabalSyntax.SECTION_TESTSUITE.equals(pds.getType())) {
if (valOptions.length() > 0) {
pds.update(CabalSyntax.FIELD_GHC_OPTIONS, valOptions);
}
if (valExtensions.length() > 0) {
pds.update(CabalSyntax.FIELD_EXTENSIONS, valExtensions);
}
}
}
}
}