Update to LTS 11 and fix build errors

Author: blitzcode

Main.hs

@@ -546,7 +546,7 @@ computeDiffParseHaskell ComputeParams { .. } = do
        -- Find .cabal file
        dotCabal <- (liftIO . findPackageDesc $ pkgPath) >>= either throwError return
        -- Parse .cabal file, extract exported modules
-       exports  <- condLibrary <$> (liftIO $ readPackageDescription normal dotCabal) >>= \case
+       exports  <- condLibrary <$> (liftIO $ readGenericPackageDescription normal dotCabal) >>= \case
            Nothing   -> throwError $ pkgPath ++ " is not a library"
            Just node -> return $ exposedModules . condTreeData $ node
        -- Build module name / module source file list
@@ -569,7 +569,7 @@ computeDiffParseHaskell ComputeParams { .. } = do
     return $ comparePackageModules mListA mListB
 
 -- Parse a Haskell module interface using haskell-src-exts and cpphs
-parseModule :: FilePath -> IO (Either String Module)
+parseModule :: FilePath -> IO (Either String (Module SrcSpanInfo))
 parseModule modPath = runExceptT $ do
     (liftIO $ doesFileExist modPath) >>= flip unless
         (throwError $ "Can't open source file '" ++ modPath ++ "'")
@@ -590,7 +590,7 @@ parseModule modPath = runExceptT $ do
                       Right (E.ParseOk parsedModule) ->
                           return parsedModule
 
-type PackageModuleList = [(String, Maybe Module)]
+type PackageModuleList = [(String, Maybe (Module SrcSpanInfo))]
 
 -- Compare two packages made up of readily parsed Haskell modules
 comparePackageModules :: PackageModuleList -> PackageModuleList -> Diff
@@ -633,8 +633,8 @@ comparePackageModules verA verB = do
                                      expUnmodified = intersectBy  (==) (moduleExports modA)
                                                                        (moduleExports modB)
         -- TODO: If the module does not have an export spec, we assume it exports nothing
-        moduleExports (Module _ _ _ _ (Just exportSpec) _ _) = exportSpec
-        moduleExports _                                      = []
+        moduleExports (Module _ (Just (ModuleHead _ _ _ (Just (ExportSpecList _ exportSpec)))) _ _ _ ) = exportSpec
+        moduleExports _                                                                                = []
         findModule mlist mname = maybe Nothing snd $ find ((== mname) . fst) mlist
      in resAdded ++ resRemoved ++ resKept
 

hackage-diff.cabal

@@ -82,19 +82,19 @@ executable hackage-diff
   main-is:             Main.hs
   -- other-modules:
   -- other-extensions:
-  build-depends:       base             >=4.8 && <5.0,
-                       Cabal            >=1.20.0 && < 2.0,
-                       haskell-src-exts >=1.15.0 && < 1.18,
-                       ansi-terminal    >=0.6.1  && < 0.7,
-                       directory        >=1.2.0  && < 1.4,
-                       filepath         >=1.3.0  && < 1.5,
-                       process          >=1.2.0  && < 1.5,
-                       attoparsec       >=0.12.1 && < 0.13,
-                       cpphs            >=1.18.5 && < 1.19,
-                       mtl              >=2.2.1  && < 2.3,
-                       text             >=1.1.1  && < 1.3,
-                       HTTP             >=4000.2.17 && < 4000.4,
-                       async            >=2.0.1  && < 2.2
+  build-depends:       base,
+                       Cabal,
+                       haskell-src-exts,
+                       ansi-terminal,
+                       directory,
+                       filepath,
+                       process,
+                       attoparsec,
+                       cpphs,
+                       mtl,
+                       text,
+                       HTTP,
+                       async
   -- hs-source-dirs:      
   default-language:    Haskell2010
   ghc-options:         -Wall -O2 -rtsopts

stack.yaml

@@ -1,7 +1,7 @@
 # For more information, see: https://github.com/commercialhaskell/stack/blob/release/doc/yaml_configuration.md
 
 # Specifies the GHC version and set of packages available (e.g., lts-3.5, nightly-2015-09-21, ghc-7.10.2)
-resolver: lts-4.0
+resolver: lts-11.7
 
 # Local packages, usually specified by relative directory name
 packages: