haskell-token-utils 0.0.0.5 → 0.0.0.6
raw patch · 3 files changed
+9/−6 lines, 3 filesdep ~haskell-src-extsPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: haskell-src-exts
API changes (from Hackage documentation)
Files
- ChangeLog +2/−0
- haskell-token-utils.cabal +2/−2
- src-hse/Language/Haskell/TokenUtils/HSE/Layout.hs +5/−4
ChangeLog view
@@ -1,3 +1,5 @@+2014-07-24: v0.0.0.6+ * haskell-src-exts v 1.16 2014-07-24: v0.0.0.5 * bump base version bounds 2014-07-20: v0.0.0.4
haskell-token-utils.cabal view
@@ -1,5 +1,5 @@ name: haskell-token-utils-version: 0.0.0.5+version: 0.0.0.6 synopsis: Utilities to tie up tokens to an AST description: This library is currently experimental. .@@ -102,7 +102,7 @@ , ghc-mod >= 4.1.0 -- For testing the haskell-src-exts one- , haskell-src-exts >= 1.15+ , haskell-src-exts >= 1.16 , uniplate source-repository head
src-hse/Language/Haskell/TokenUtils/HSE/Layout.hs view
@@ -585,13 +585,14 @@ -- trace ("decl:FunBind" ++ show (ss, map treeStartEnd subs)) [makeGroup subs] - decl (PatBind (SrcSpanInfo _ _) _ _ _ Nothing) vv = vv- decl (PatBind l@(SrcSpanInfo _ss _) pat mtyp rhs (Just bd@(BDecls (SrcSpanInfo _bs _) _))) vv =+ -- PatBind l (Pat l) (Rhs l) {-where-} (Maybe (Binds l))+ decl (PatBind (SrcSpanInfo _ _) _ _ Nothing) vv = vv+ decl (PatBind l@(SrcSpanInfo _ss _) pat rhs (Just bd@(BDecls (SrcSpanInfo _bs _) _))) vv = case srcInfoPoints l of (wherePos:_) -> let treePat = allocTokens' pat- treeType = allocTokens' mtyp+ -- treeType = allocTokens' mtyp treeRhs = allocTokens' rhs treeWhereClause = [makeGroup (treeWhere ++ treeDecls)] where@@ -603,7 +604,7 @@ (whereStart,_whereEnd) = ss2s wherePos io = FromAlignCol whereStart eo = None -- will be calculated later FromAlignCol (0,0)- subs = treePat ++ treeType ++ treeRhs ++ treeWhereClause+ subs = treePat ++ treeRhs ++ treeWhereClause in -- trace ("decl:patBind:" ++ show (ss)) [makeGroup subs]