diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -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
diff --git a/haskell-token-utils.cabal b/haskell-token-utils.cabal
--- a/haskell-token-utils.cabal
+++ b/haskell-token-utils.cabal
@@ -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
diff --git a/src-hse/Language/Haskell/TokenUtils/HSE/Layout.hs b/src-hse/Language/Haskell/TokenUtils/HSE/Layout.hs
--- a/src-hse/Language/Haskell/TokenUtils/HSE/Layout.hs
+++ b/src-hse/Language/Haskell/TokenUtils/HSE/Layout.hs
@@ -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]