defaults to the only stanza

JPMoresmau · Dec 6, 2012 · 92b3bb5 · 92b3bb5
1 parent b974c9c
commit 92b3bb5
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/...psefp.haskell.ui/src/net/sf/eclipsefp/haskell/ui/properties/ModuleInclusionComposite.java b/...psefp.haskell.ui/src/net/sf/eclipsefp/haskell/ui/properties/ModuleInclusionComposite.java
@@ -108,6 +108,13 @@ public void init(final IFile file,final IResource srcPath, final String module,f
       }
       List<PackageDescriptionStanza> l=cabal.getStanzasBySourceDir().get( path );
       if (l!=null && l.size()>0){
+        /** defaults to the only one **/
+        if (l.size()==1 && editor==null ){
+          editor=l.get( 0 ).getName();
+          if (editor==null){ // library
+            editor="";
+          }
+        }
         GridLayout gl=new GridLayout(4,false);
         setLayout( gl );