diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for pms-domain-model
 
+## 0.0.8.0 -- 2025-07-27
+
+* Fixed resources templates.
+
 ## 0.0.7.0 -- 2025-07-20
 
 * Added proc tool.
diff --git a/pms-domain-model.cabal b/pms-domain-model.cabal
--- a/pms-domain-model.cabal
+++ b/pms-domain-model.cabal
@@ -20,7 +20,7 @@
 -- PVP summary:     +-+------- breaking API changes
 --                  | | +----- non-breaking API additions
 --                  | | | +--- code changes with no API change
-version:            0.0.7.0
+version:            0.0.8.0
 
 -- A short (one-line) description of the package.
 synopsis:           pms-domain-model
diff --git a/src/PMS/Domain/Model/DM/Constant.hs b/src/PMS/Domain/Model/DM/Constant.hs
--- a/src/PMS/Domain/Model/DM/Constant.hs
+++ b/src/PMS/Domain/Model/DM/Constant.hs
@@ -50,7 +50,6 @@
 _CRLF :: String
 _CRLF = "\r\n"
 
-
 -- |
 --
 _CR :: String
diff --git a/src/PMS/Domain/Model/DM/Type.hs b/src/PMS/Domain/Model/DM/Type.hs
--- a/src/PMS/Domain/Model/DM/Type.hs
+++ b/src/PMS/Domain/Model/DM/Type.hs
@@ -743,7 +743,7 @@
 --
 data McpResourcesTemplatesListResponseResult =
   McpResourcesTemplatesListResponseResult {
-    _resourcesMcpResourcesTemplatesListResponseResult :: RawJsonByteString
+    _resourceTemplatesMcpResourcesTemplatesListResponseResult :: RawJsonByteString
   } deriving (Show, Read, Eq)
 
 $(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesTemplatesListResponseResult", omitNothingFields = True} ''McpResourcesTemplatesListResponseResult)
@@ -751,7 +751,7 @@
 
 instance Default McpResourcesTemplatesListResponseResult where
   def = McpResourcesTemplatesListResponseResult {
-        _resourcesMcpResourcesTemplatesListResponseResult = def
+        _resourceTemplatesMcpResourcesTemplatesListResponseResult = def
       }
 
 -- |
@@ -1491,9 +1491,9 @@
   return DomainData {
            _logDirDomainData            = Nothing
          , _logLevelDomainData          = LevelDebug
-         , _toolsDirDomainData          = "./tools"
-         , _promptsDirDomainData        = "./prompts"
-         , _resourcesDirDomainData      = "./resources"
+         , _toolsDirDomainData          = "pty-mcp-server/tools"
+         , _promptsDirDomainData        = "pty-mcp-server/prompts"
+         , _resourcesDirDomainData      = "pty-mcp-server/resources"
          , _requestQueueDomainData      = reqQ
          , _responseQueueDomainData     = resQ
          , _notificationQueueDomainData = notQ
diff --git a/src/PMS/Domain/Model/DS/Utility.hs b/src/PMS/Domain/Model/DS/Utility.hs
--- a/src/PMS/Domain/Model/DS/Utility.hs
+++ b/src/PMS/Domain/Model/DS/Utility.hs
@@ -206,52 +206,3 @@
       if foundPrompt acc'
         then return acc'
         else go acc'
-
-
-{-
-readUntilPrompt :: IO BS.ByteString -> [String] -> IO BS.ByteString
-readUntilPrompt feed prompts = go BS.empty
-  where
-    promptBsList = map BS.pack prompts
-
-    foundPrompt acc = any (`BS.isInfixOf` acc) promptBsList
-
-    go acc = do
-      chunk <- feed
-      when ("\ESC[6n" `BS.isInfixOf` chunk) $ do
-        E.throwString "Unsupported: Detected cursor position report request (ESC[6n)."
-
-      -- let txt = ANSI.stripAnsiEscapeCodes $ TE.decodeUtf8With TEE.lenientDecode chunk
-      let txt = TE.decodeUtf8With TEE.lenientDecode chunk
-      hPutStrLn stderr $ "[INFO] chunk:\n" ++ T.unpack txt
-
-      let acc' = BS.append acc chunk
-      if foundPrompt acc'
-        then return acc'
-        else go acc'
-
-
-
-readUntilPrompt :: Pty -> [String] -> IO BS.ByteString
-readUntilPrompt pms prompts = go BS.empty T.empty
-  where
-    promptTextList = map T.pack prompts
-
-    foundPrompt :: T.Text -> Bool
-    foundPrompt txt = any (`T.isInfixOf` txt) promptTextList
-
-    go accBs accTxt = do
-      chunk <- readPty pms
-      let txt = ANSI.stripAnsiEscapeCodes $ TE.decodeUtf8With TEE.lenientDecode chunk
-      hPutStrLn stderr $ "[INFO] chunk:\n" ++ T.unpack txt
-
-      when ("\ESC[6n" `BS.isInfixOf` chunk) $ do
-        hPutStrLn stderr "[INFO] Detected cursor position report request, replying with ESC[1;1R"
-        writePty pms (DBS.pack ([0x1B :: Word8, 0x5B :: Word8] ++ map (fromIntegral . ord) "0;0R"))
-
-      let accBs' = BS.append accBs chunk
-          accTxt' = T.append accTxt txt
-      if foundPrompt accTxt'
-        then return accBs'
-        else go accBs' accTxt'
--}