diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -1,3 +1,6 @@
+20230402 haskell-debug-adapter-0.0.39.0
+  * [INFO] support ghc-9.6.1.
+
 20221127 haskell-debug-adapter-0.0.38.0
   * [MODIFY] hdx4vsc ISSUE#27 Feature request: support jumping into library
   * [INFO] support ghc-9.4.3.
diff --git a/haskell-debug-adapter.cabal b/haskell-debug-adapter.cabal
--- a/haskell-debug-adapter.cabal
+++ b/haskell-debug-adapter.cabal
@@ -7,7 +7,7 @@
 -- hash: 1a8a9f4202a32a5d5c37c676b9d919068955c6ff8fecee95e75927238459e56d
 
 name:           haskell-debug-adapter
-version:        0.0.38.0
+version:        0.0.39.0
 synopsis:       Haskell Debug Adapter.
 description:    Please see README.md
 category:       Development
@@ -15,7 +15,7 @@
 bug-reports:    https://github.com/phoityne/haskell-debug-adapter/issues
 author:         phoityne_hs
 maintainer:     phoityne.hs@gmail.com
-copyright:      2016-2022 phoityne_hs
+copyright:      2016-2023 phoityne_hs
 license:        BSD3
 license-file:   LICENSE
 build-type:     Simple
diff --git a/src/Haskell/Debug/Adapter/GHCi.hs b/src/Haskell/Debug/Adapter/GHCi.hs
--- a/src/Haskell/Debug/Adapter/GHCi.hs
+++ b/src/Haskell/Debug/Adapter/GHCi.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE CPP #-}
 
 module Haskell.Debug.Adapter.GHCi where
 
@@ -20,6 +21,9 @@
 import qualified Haskell.Debug.Adapter.Utility as U
 import Haskell.Debug.Adapter.Constant
 
+#if __GLASGOW_HASKELL__ >= 906
+import Control.Monad
+#endif
 ---------------------------------------------------------------------------------
 -- |
 --  run ghci.
diff --git a/src/Haskell/Debug/Adapter/Utility.hs b/src/Haskell/Debug/Adapter/Utility.hs
--- a/src/Haskell/Debug/Adapter/Utility.hs
+++ b/src/Haskell/Debug/Adapter/Utility.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP #-}
+
 module Haskell.Debug.Adapter.Utility where
 
 import Control.Lens
@@ -19,6 +21,10 @@
 import qualified System.Log.Logger as L
 import qualified Data.List as L
 import qualified Control.Exception.Safe as E
+
+#if __GLASGOW_HASKELL__ >= 906
+import Control.Monad
+#endif
 
 import qualified Haskell.DAP as DAP
 import Haskell.Debug.Adapter.Type
diff --git a/src/Haskell/Debug/Adapter/Watch.hs b/src/Haskell/Debug/Adapter/Watch.hs
--- a/src/Haskell/Debug/Adapter/Watch.hs
+++ b/src/Haskell/Debug/Adapter/Watch.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE CPP #-}
 
 module Haskell.Debug.Adapter.Watch where
 
@@ -16,7 +17,11 @@
 import Haskell.Debug.Adapter.Utility
 import Haskell.Debug.Adapter.Constant
 
+import System.FilePath
 
+#if __GLASGOW_HASKELL__ >= 906
+import Control.Monad
+#endif
 -- |
 --
 run :: AppStores -> IO ()
@@ -53,7 +58,8 @@
 
     -- |
     --
-    hsFilter ev = L.isSuffixOf _HS_FILE_EXT $ S.eventPath ev
+    hsFilter ev = (L.isSuffixOf _HS_FILE_EXT (S.eventPath ev))
+               && (not (L.isInfixOf (pathSeparator:".") (S.eventPath ev)))
 
     -- |
     --