pointful 1.0.6 → 1.0.7
raw patch · 2 files changed
+8/−8 lines, 2 filesdep ~haskell-src-exts
Dependency ranges changed: haskell-src-exts
Files
- Lambdabot/Pointful.hs +5/−5
- pointful.cabal +3/−3
Lambdabot/Pointful.hs view
@@ -42,11 +42,11 @@ -- move lambda patterns into LHS optimizeD :: Decl -> Decl-optimizeD (PatBind locat (PVar fname) (UnGuardedRhs (Lambda _ pats rhs)) (BDecls []))- = FunBind [Match locat fname pats Nothing (UnGuardedRhs rhs) (BDecls [])]+optimizeD (PatBind locat (PVar fname) (UnGuardedRhs (Lambda _ pats rhs)) Nothing)+ = FunBind [Match locat fname pats Nothing (UnGuardedRhs rhs) Nothing] ---- combine function binding and lambda-optimizeD (FunBind [Match locat fname pats1 Nothing (UnGuardedRhs (Lambda _ pats2 rhs)) (BDecls [])])- = FunBind [Match locat fname (pats1 ++ pats2) Nothing (UnGuardedRhs rhs) (BDecls [])]+optimizeD (FunBind [Match locat fname pats1 Nothing (UnGuardedRhs (Lambda _ pats2 rhs)) Nothing])+ = FunBind [Match locat fname (pats1 ++ pats2) Nothing (UnGuardedRhs rhs) Nothing] optimizeD x = x -- remove parens@@ -162,7 +162,7 @@ where defs = case parseModule combinatorModule of ParseOk (Hs.Module _ _ _ _ _ _ d) -> d f@(ParseFailed _ _) -> error ("Combinator loading: " ++ show f)- declToTuple (PatBind _ (PVar fname) (UnGuardedRhs body) (BDecls []))+ declToTuple (PatBind _ (PVar fname) (UnGuardedRhs body) Nothing) = (UnQual fname, Paren body) declToTuple _ = error "Pointful Plugin error: can't convert declaration to tuple"
pointful.cabal view
@@ -1,5 +1,5 @@ name: pointful-version: 1.0.6+version: 1.0.7 synopsis: Pointful refactoring tool @@ -21,7 +21,7 @@ other-modules: Lambdabot.Parser build-depends: base >= 4.4 && < 5, containers >= 0.4,- haskell-src-exts >= 1.16.0,+ haskell-src-exts >= 1.17.0, mtl >= 2, syb >= 0.3, transformers >= 0.2@@ -30,7 +30,7 @@ main-is: Pointful.hs build-depends: base >= 4.4 && < 5, containers >= 0.4,- haskell-src-exts >= 1.16.0,+ haskell-src-exts >= 1.17.0, mtl >= 2, syb >= 0.3, transformers >= 0.2