diff --git a/.envrc b/.envrc
index ae4dc27..a1d3540 100755
--- a/.envrc
+++ b/.envrc
@@ -1 +1 @@
-use flake -Lv
+use flake . -Lv
diff --git a/CHANGELOG.md b/CHANGELOG.md
index 0e16b81..59b22a8 100755
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -6,6 +6,13 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
+## [1.4.3] - 2023-12-15
+
+### Fixed
+
+- Broken `qual` snippet: Constructing only the first
+  part of the module as an alias choice [[#20](https://github.com/mrcjkb/haskell-snippets.nvim/issues/20)].
+
 ## [1.4.2] - 2023-12-09
 
 ### Fixed
diff --git a/lua/haskell-snippets/module.lua b/lua/haskell-snippets/module.lua
index 4326a64..cb102bc 100644
--- a/lua/haskell-snippets/module.lua
+++ b/lua/haskell-snippets/module.lua
@@ -35,7 +35,7 @@ local function fast_parse(lang_tree)
   return parser:parse(old_trees[1], lang_tree._source)
 end
 
----@param apply fun(module_name: string):(string|nil) Callback to apply the module name to
+---@param apply fun(module_name: string):(string|nil) Callback to apply the module name to. If the callback returns, this function returns.
 ---@param content string The content to parse from
 ---@param query_string? string The tree-sitter query string with a '@mod' capture
 ---@return string|nil
@@ -48,8 +48,11 @@ local function treesitter_module_name(apply, content, query_string)
   ---@diagnostic disable-next-line
   for _, match in module_query:iter_matches(root, content) do
     for _, node in ipairs(match) do
-      local txt = vim.treesitter.get_node_text(node, content)
-      return apply(txt)
+      local txt = vim.print(vim.treesitter.get_node_text(node, content))
+      local result = apply(txt)
+      if result then
+        return result
+      end
     end
   end
 end
@@ -58,7 +61,7 @@ end
 local function get_buf_module_name(_)
   local buf_content = table.concat(vim.api.nvim_buf_get_lines(0, 0, -1, false), '\n')
   return treesitter_module_name(function(mod)
-    return vim.print(mod)
+    return mod
   end, buf_content, '[(module)(qualified_module)] @mod')
 end
 
@@ -106,7 +109,6 @@ local function get_qualified_name_node(args)
   local choices = { insert(1) }
   if has_haskell_parser then
     treesitter_module_name(function(mod)
-      vim.print(mod)
       table.insert(choices, 1, text(mod:sub(1, 1)))
       table.insert(choices, 1, text(mod))
     end, import_stmt)