leksah-server 0.12.1.1 → 0.12.1.2

raw patch · 3 files changed

+11/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• leksah-server.cabal +5/−1
• src/IDE/Core/Serializable.hs +2/−1
• src/IDE/Metainfo/PackageCollector.hs +4/−3

@@ -1,5 +1,5 @@ name: leksah-server-version: 0.12.1.1+version: 0.12.1.2 cabal-version: >= 1.10.2 build-type: Simple license: GPL@@ -41,6 +41,10 @@                hslogger >= 1.0.7 && <1.2, network >=2.2 && <3.0, enumerator >=0.4.14 && < 0.5,                attoparsec-enumerator >=0.3 && <0.4, attoparsec >=0.10.0.3 && <0.11,                transformers >=0.2.2.0 && <0.4, strict >=0.3.2 && <0.4++    if (impl(ghc >= 7.2))+        binary-shared >=0.8.2+     if (impl(ghc >= 7.4))        build-depends: haddock >= 2.7.2 && <2.11     else

@@ -31,6 +31,7 @@ import Distribution.Package (PackageName(..),PackageIdentifier(..)) import Data.Version (Version(..)) import Distribution.ModuleName (ModuleName)+import MyMissing (forceJust)  import IDE.Core.CTypes @@ -233,7 +234,7 @@  instance BinaryShared ModuleName where     put    =  put . display-    get    =  liftM (fromJust . simpleParse) get+    get    =  liftM (flip forceJust "BinaryShared>>get(ModuleName)" . simpleParse) get  instance BinaryShared PackageName where     put (PackageName pn) =  put pn

@@ -44,9 +44,10 @@ import Distribution.Text (display) import Control.Exception (SomeException,catch) #if defined(USE_LIBCURL)-import Network.Curl (curlGetString, CurlCode(..))+import Network.Curl (curlGetString_, CurlCode(..)) import Control.Monad (when)-import System.IO (withBinaryFile, IOMode(..), hPutStr)+import System.IO (withBinaryFile, IOMode(..))+import Data.ByteString (hPutStr) #else #ifdef MIN_VERSION_process_leksah import IDE.System.Process (system)@@ -132,7 +133,7 @@             debugM "leksah-server" $ "collectPackage: before retreiving = " ++ fullUrl #if defined(USE_LIBCURL)             catch (do-                (code, string) <- curlGetString fullUrl []+                (code, string) <- curlGetString_ fullUrl []                 when (code == CurlOK) $                     withBinaryFile filePath WriteMode $ \ file -> do                         hPutStr file string)