packages feed

hsdev 0.3.2.2 → 0.3.2.3

raw patch · 2 files changed

+27/−12 lines, 2 filesdep ~haskell-src-extsPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: haskell-src-exts

API changes (from Hackage documentation)

- HsDev.Project.Types: entity :: forall a_a1rJR a_a1tax. Lens (Extensions a_a1rJR) (Extensions a_a1tax) a_a1rJR a_a1tax
+ HsDev.Project.Types: entity :: forall a_a1rM9 a_a1td3. Lens (Extensions a_a1rM9) (Extensions a_a1td3) a_a1rM9 a_a1td3
- HsDev.Project.Types: extensions :: forall a_a1rJR. Lens' (Extensions a_a1rJR) [Extension]
+ HsDev.Project.Types: extensions :: forall a_a1rM9. Lens' (Extensions a_a1rM9) [Extension]
- HsDev.Project.Types: ghcOptions :: forall a_a1rJR. Lens' (Extensions a_a1rJR) [Text]
+ HsDev.Project.Types: ghcOptions :: forall a_a1rM9. Lens' (Extensions a_a1rM9) [Text]
- HsDev.Server.Message: message :: forall a_a1RXV a_a1S3j. Lens (Message a_a1RXV) (Message a_a1S3j) a_a1RXV a_a1S3j
+ HsDev.Server.Message: message :: forall a_a1S0r a_a1S5P. Lens (Message a_a1S0r) (Message a_a1S5P) a_a1S0r a_a1S5P
- HsDev.Server.Message: messageId :: forall a_a1RXV. Lens' (Message a_a1RXV) (Maybe String)
+ HsDev.Server.Message: messageId :: forall a_a1S0r. Lens' (Message a_a1S0r) (Maybe String)
- HsDev.Symbols.Types: inspectedKey :: forall k_a2uMH t_a2uMI a_a2uMJ k_a2y25. Lens (Inspected k_a2uMH t_a2uMI a_a2uMJ) (Inspected k_a2y25 t_a2uMI a_a2uMJ) k_a2uMH k_a2y25
+ HsDev.Symbols.Types: inspectedKey :: forall k_a2uPd t_a2uPe a_a2uPf k_a2y4B. Lens (Inspected k_a2uPd t_a2uPe a_a2uPf) (Inspected k_a2y4B t_a2uPe a_a2uPf) k_a2uPd k_a2y4B
- HsDev.Symbols.Types: inspection :: forall k_a2uMH t_a2uMI a_a2uMJ. Lens' (Inspected k_a2uMH t_a2uMI a_a2uMJ) Inspection
+ HsDev.Symbols.Types: inspection :: forall k_a2uPd t_a2uPe a_a2uPf. Lens' (Inspected k_a2uPd t_a2uPe a_a2uPf) Inspection
- HsDev.Symbols.Types: inspectionResult :: forall k_a2uMH t_a2uMI a_a2uMJ a_a2y26. Lens (Inspected k_a2uMH t_a2uMI a_a2uMJ) (Inspected k_a2uMH t_a2uMI a_a2y26) (Either HsDevError a_a2uMJ) (Either HsDevError a_a2y26)
+ HsDev.Symbols.Types: inspectionResult :: forall k_a2uPd t_a2uPe a_a2uPf a_a2y4C. Lens (Inspected k_a2uPd t_a2uPe a_a2uPf) (Inspected k_a2uPd t_a2uPe a_a2y4C) (Either HsDevError a_a2uPf) (Either HsDevError a_a2y4C)
- HsDev.Symbols.Types: inspectionTags :: forall k_a2uMH t_a2uMI a_a2uMJ t_a2y27. Lens (Inspected k_a2uMH t_a2uMI a_a2uMJ) (Inspected k_a2uMH t_a2y27 a_a2uMJ) (Set t_a2uMI) (Set t_a2y27)
+ HsDev.Symbols.Types: inspectionTags :: forall k_a2uPd t_a2uPe a_a2uPf t_a2y4D. Lens (Inspected k_a2uPd t_a2uPe a_a2uPf) (Inspected k_a2uPd t_a2y4D a_a2uPf) (Set t_a2uPe) (Set t_a2y4D)
- HsDev.Symbols.Types: scopeQualifier :: forall a_a2uMK. Lens' (Scoped a_a2uMK) (Maybe Text)
+ HsDev.Symbols.Types: scopeQualifier :: forall a_a2uPg. Lens' (Scoped a_a2uPg) (Maybe Text)
- HsDev.Symbols.Types: scoped :: forall a_a2uMK a_a2xWX. Lens (Scoped a_a2uMK) (Scoped a_a2xWX) a_a2uMK a_a2xWX
+ HsDev.Symbols.Types: scoped :: forall a_a2uPg a_a2xZt. Lens (Scoped a_a2uPg) (Scoped a_a2xZt) a_a2uPg a_a2xZt
- HsDev.Tools.Types: note :: forall a_a1Vd8 a_a1Vp2. Lens (Note a_a1Vd8) (Note a_a1Vp2) a_a1Vd8 a_a1Vp2
+ HsDev.Tools.Types: note :: forall a_a1VfE a_a1Vry. Lens (Note a_a1VfE) (Note a_a1Vry) a_a1VfE a_a1Vry
- HsDev.Tools.Types: noteLevel :: forall a_a1Vd8. Lens' (Note a_a1Vd8) (Maybe Severity)
+ HsDev.Tools.Types: noteLevel :: forall a_a1VfE. Lens' (Note a_a1VfE) (Maybe Severity)
- HsDev.Tools.Types: noteRegion :: forall a_a1Vd8. Lens' (Note a_a1Vd8) Region
+ HsDev.Tools.Types: noteRegion :: forall a_a1VfE. Lens' (Note a_a1VfE) Region
- HsDev.Tools.Types: noteSource :: forall a_a1Vd8. Lens' (Note a_a1Vd8) ModuleLocation
+ HsDev.Tools.Types: noteSource :: forall a_a1VfE. Lens' (Note a_a1VfE) ModuleLocation

Files

hsdev.cabal view
@@ -1,5 +1,5 @@ name:                hsdev-version:             0.3.2.2+version:             0.3.2.3 synopsis:            Haskell development library description:   Haskell development library and tool with support of autocompletion, symbol info, go to declaration, find references, hayoo search etc.@@ -184,7 +184,7 @@     ghc-boot                          >= 8.0.1 && < 8.7,     ghc-paths                         >= 0.1.0.9 && < 0.2,     haskell-names                     >= 0.9.1 && < 0.10.0,-    haskell-src-exts                  >= 1.19.1 && < 1.21.0,+    haskell-src-exts                  >= 1.19.1 && < 1.22.0,     hformat                           >= 0.1.0.1 && < 0.4,     hlint                             >= 2.0.11 && < 2.2,     lens                              >= 4.14 && < 4.18,
src/HsDev/Inspect/Definitions.hs view
@@ -60,11 +60,16 @@ 	H.ClassDecl _ mctx h _ clsDecls -> mkSymbol nm (Class (tyArgs h) (getCtx mctx)) : concatMap (getClassDecl nm) (fromMaybe [] clsDecls) where 		nm = tyName h 	H.TypeSig _ ns tsig -> [mkSymbol n (Function (Just $ oneLinePrint tsig)) | n <- ns]-	H.PatSynSig _ ns mas _ _ t -> [mkSymbol n (PatConstructor (maybe [] (map prp) mas) (Just $ oneLinePrint t)) | n <- ns'] where+#if MIN_VERSION_haskell_src_exts(1,21,0)+	H.PatSynSig _ ns mas _ _ _ t ->+#else+	H.PatSynSig _ ns mas _ _ t ->+#endif+		[mkSymbol n (PatConstructor (maybe [] (map prp) mas) (Just $ oneLinePrint t)) | n <- ns'] where #if MIN_VERSION_haskell_src_exts(1,20,0)-		ns' = ns+			ns' = ns #else-		ns' = [ns]+			ns' = [ns] #endif 	H.FunBind _ ms -> [mkSymbol (matchName m) (Function Nothing) | m <- ms] where 		matchName (H.Match _ n _ _ _) = n@@ -101,13 +106,23 @@ 		[mkSymbol fn (Selector (Just $ prp ft) (prp ptype) [prp n]) | H.FieldDecl _ fns ft <- fs, fn <- fns]  getGConDecl :: H.Name Ann -> H.GadtDecl Ann -> [Symbol]-getGConDecl _ (H.GadtDecl _ n Nothing t) = [mkSymbol n (Constructor (map prp as) (prp res))] where-	(as, res) = tyFunSplit t-	tyFunSplit = go [] where-		go as' (H.TyFun _ arg' res') = go (arg' : as') res'-		go as' t' = (reverse as', t')-getGConDecl ptype (H.GadtDecl _ n (Just fs) t) = mkSymbol n (Constructor [prp ft | H.FieldDecl _ _ ft <- fs] (prp t)) :-	[mkSymbol fn (Selector (Just $ prp ft) (prp ptype) [prp n]) | H.FieldDecl _ fns ft <- fs, fn <- fns]+#if MIN_VERSION_haskell_src_exts(1,21,0)+getGConDecl _ (H.GadtDecl _ n _ _ Nothing t) =+#else+getGConDecl _ (H.GadtDecl _ n Nothing t) =+#endif+	[mkSymbol n (Constructor (map prp as) (prp res))] where+		(as, res) = tyFunSplit t+		tyFunSplit = go [] where+			go as' (H.TyFun _ arg' res') = go (arg' : as') res'+			go as' t' = (reverse as', t')+#if MIN_VERSION_haskell_src_exts(1,21,0)+getGConDecl ptype (H.GadtDecl _ n _ _ (Just fs) t) =+#else+getGConDecl ptype (H.GadtDecl _ n (Just fs) t) =+#endif+	mkSymbol n (Constructor [prp ft | H.FieldDecl _ _ ft <- fs] (prp t)) :+		[mkSymbol fn (Selector (Just $ prp ft) (prp ptype) [prp n]) | H.FieldDecl _ fns ft <- fs, fn <- fns]  getClassDecl :: H.Name Ann -> H.ClassDecl Ann -> [Symbol] getClassDecl pclass (H.ClsDecl _ (H.TypeSig _ ns tsig)) = [mkSymbol n (Method (Just $ oneLinePrint tsig) (prp pclass)) | n <- ns]