diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for ollama-haskell
 
+## 0.1.0.2 -- 2024-10-18
+
+* Increased response timeout time for chat function
+
 ## 0.1.0.1 -- 2024-10-18
 
 * Renaming Lib.hs to OllamaExamples.hs as it was conflicting `Lib.hs` name
diff --git a/ollama-haskell.cabal b/ollama-haskell.cabal
--- a/ollama-haskell.cabal
+++ b/ollama-haskell.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.4
 name:               ollama-haskell
-version:            0.1.0.1
+version:            0.1.0.2
 synopsis:           Ollama Haskell library
 -- description:
 license:            MIT
diff --git a/src/Data/Ollama/Chat.hs b/src/Data/Ollama/Chat.hs
--- a/src/Data/Ollama/Chat.hs
+++ b/src/Data/Ollama/Chat.hs
@@ -42,6 +42,7 @@
   parseJSON _ = fail "Invalid Role value"
 
 -- TODO : Add tool_calls parameter
+
 -- | Represents a message within a chat, including its role and content.
 data Message = Message
   { role :: Role
@@ -56,7 +57,7 @@
 -- TODO: Add Options parameter
 data ChatOps = ChatOps
   { chatModelName :: Text
- -- ^ The name of the chat model to be used.
+  -- ^ The name of the chat model to be used.
   , messages :: NonEmpty Message
   -- ^ A non-empty list of messages forming the conversation context.
   , tools :: Maybe Text
@@ -66,7 +67,7 @@
   , stream :: Maybe (ChatResponse -> IO (), IO ())
   -- ^ Optional streaming functions where the first handles each chunk of the response, and the second flushes the stream.
   , keepAlive :: Maybe Text
-  -- ^ Optional text to specify keep-alive behavior.  
+  -- ^ Optional text to specify keep-alive behavior.
   }
 
 instance Show ChatOps where
@@ -95,7 +96,7 @@
 
 data ChatResponse = ChatResponse
   { model :: Text
- -- ^ The name of the model that generated this response.
+  -- ^ The name of the model that generated this response.
   , createdAt :: UTCTime
   -- ^ The timestamp when the response was created.
   , message :: Maybe Message
@@ -113,7 +114,7 @@
   , evalCount :: Maybe Int64
   -- ^ Optional count of evaluations during the chat process.
   , evalDuration :: Maybe Int64
-  -- ^ Optional duration in milliseconds for evaluations during the chat process.  
+  -- ^ Optional duration in milliseconds for evaluations during the chat process.
   }
   deriving (Show, Eq)
 
@@ -142,14 +143,15 @@
       <*> v .:? "eval_count"
       <*> v .:? "eval_duration"
 
--- | 
--- A default configuration for initiating a chat with a model. 
--- This can be used as a starting point and modified as needed.
--- 
--- Example:
--- 
--- > let ops = defaultChatOps { chatModelName = "customModel" }
--- > chat ops
+{- |
+A default configuration for initiating a chat with a model.
+This can be used as a starting point and modified as needed.
+
+Example:
+
+> let ops = defaultChatOps { chatModelName = "customModel" }
+> chat ops
+-}
 defaultChatOps :: ChatOps
 defaultChatOps =
   ChatOps
@@ -161,23 +163,26 @@
     , keepAlive = Nothing
     }
 
--- | 
--- Initiates a chat session with the specified 'ChatOps' configuration and returns either
--- a 'ChatResponse' or an error message.
---
--- This function sends a request to the Ollama chat API with the given options.
--- 
--- Example:
---
--- > let ops = defaultChatOps
--- > result <- chat ops
--- > case result of
--- >   Left errorMsg -> putStrLn ("Error: " ++ errorMsg)
--- >   Right response -> print response
+{- |
+Initiates a chat session with the specified 'ChatOps' configuration and returns either
+a 'ChatResponse' or an error message.
+
+This function sends a request to the Ollama chat API with the given options.
+
+Example:
+
+> let ops = defaultChatOps
+> result <- chat ops
+> case result of
+>   Left errorMsg -> putStrLn ("Error: " ++ errorMsg)
+>   Right response -> print response
+-}
 chat :: ChatOps -> IO (Either String ChatResponse)
 chat cOps = do
   let url = CU.host defaultOllama
-  manager <- newManager defaultManagerSettings
+  manager <-
+    newManager defaultManagerSettings -- Setting response timeout to 5 minutes, since llm takes time
+                    { managerResponseTimeout = responseTimeoutMicro (5 * 60 * 1000000)}
   initialRequest <- parseRequest $ T.unpack (url <> "/api/chat")
   let reqBody = cOps
       request =