diff --git a/snippets/haskell.snippets b/snippets/haskell.snippets
index 5cf094c..4d40199 100644
--- a/snippets/haskell.snippets
+++ b/snippets/haskell.snippets
@@ -43,7 +43,7 @@ snippet class
 snippet module
 	module `substitute(substitute(expand('%:r'), '[/\\]','.','g'),'^\%(\l*\.\)\?','','')` (
 	) where
-	`expand('%') =~ 'a' ? "\nmain :: IO ()\nmain = undefined" : ""`
+	`expand('%') =~ 'Main' ? "\nmain :: IO ()\nmain = undefined" : ""`
 
 snippet main
 	main :: IO ()