diff --git a/fish/.config/fish/functions/fasttags.fish b/fish/.config/fish/functions/fasttags.fish
new file mode 100644
index 0000000..60442b7
--- /dev/null
+++ b/fish/.config/fish/functions/fasttags.fish
@@ -0,0 +1,7 @@
+function fasttags --description "Generate tags for Haskell project"
+    if not test -e tags
+        fast-tags --fully-qualified -R .
+    else
+        fast-tags --fully-qualified -R $argv
+    end
+end