Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Automatic configure on: cannot satisfy -package-id.

Description in cabal file by default empty String (instead of four empty lines).
  • Loading branch information...
commit a268d9657b45e63843f5ac1c1609fde8b72d1007 1 parent 5bf36e3
@jutaro jutaro authored
View
1  .gitignore
@@ -1,3 +1,4 @@
/dist/
/*.lkshf
/.DS_Store
+*~
View
3  src/IDE/Package.hs
@@ -225,10 +225,11 @@ runCabalBuild backgroundBuild jumpToWarnings withoutLinking package shallConfigu
isConfigError :: Monad m => E.Iteratee ToolOutput m Bool
isConfigError = EL.foldM (\a b -> return $ a || isCErr b) False
where
- isCErr (ToolError str) = str1 `isInfixOf` str || str2 `isInfixOf` str
+ isCErr (ToolError str) = str1 `isInfixOf` str || str2 `isInfixOf` str || str3 `isInfixOf` str
isCErr _ = False
str1 = "Run the 'configure' command first"
str2 = "please re-configure"
+ str3 = "cannot satisfy -package-id"
buildPackage :: Bool -> Bool -> Bool -> IDEPackage -> (Bool -> IDEAction) -> IDEAction
buildPackage backgroundBuild jumpToWarnings withoutLinking package continuation = catchIDE (do
View
4 src/IDE/Pane/PackageEditor.hs
@@ -590,7 +590,7 @@ packageDD packages fp modules numBuildInfos extras = NFD ([
$ paraMinSize <<<- ParaMinSize (-1,210)
$ emptyParams)
(description . pd)
- (\ a b -> b{pd = (pd b){description = if null a then " \n\n\n\n\n" else a}})
+ (\ a b -> b{pd = (pd b){description = if null a then " " else a}})
multilineStringEditor
, mkField
(paraName <<<- ParaName "Homepage" $ emptyParams)
@@ -1230,7 +1230,7 @@ instance Default Test'
libraryEditor :: Maybe FilePath -> [ModuleName] -> Int -> Editor Library'
libraryEditor fp modules numBuildInfos para noti = do
- (wid,inj,ext) <-
+ (wid,inj,ext) <-
tupel3Editor
(boolEditor,
paraName <<<- ParaName "Exposed"
Please sign in to comment.
Something went wrong with that request. Please try again.