feat: register Haskell language in core system

- Add Haskell variant to Language enum with file extensions
- Include Haskell file patterns in default extraction options
- Register Haskell parser in parser module registry

🤖 Generated with [Claude Code](https://claude.ai/code)

Co-Authored-By: Claude <noreply@anthropic.com>

Author: unhappychoice

src/extractor/models/language.rs

@@ -13,6 +13,7 @@ pub enum Language {
     CSharp,
     C,
     Cpp,
+    Haskell,
 }
 
 impl std::fmt::Display for Language {
@@ -31,6 +32,7 @@ impl std::fmt::Display for Language {
             Language::CSharp => "csharp",
             Language::C => "c",
             Language::Cpp => "cpp",
+            Language::Haskell => "haskell",
         };
         write!(f, "{}", s)
     }
@@ -52,6 +54,7 @@ impl Language {
             "cs" | "csx" => Some(Language::CSharp),
             "c" | "h" => Some(Language::C),
             "cpp" | "cc" | "cxx" | "hpp" => Some(Language::Cpp),
+            "hs" | "lhs" => Some(Language::Haskell),
             _ => None,
         }
     }
@@ -71,6 +74,7 @@ impl Language {
             Language::CSharp => "cs",
             Language::C => "c",
             Language::Cpp => "cpp",
+            Language::Haskell => "hs",
         }
     }
 
@@ -91,6 +95,7 @@ impl Language {
             Some("cs") | Some("csx") => "csharp".to_string(),
             Some("c") | Some("h") => "c".to_string(),
             Some("cpp") | Some("cc") | Some("cxx") | Some("hpp") => "cpp".to_string(),
+            Some("hs") | Some("lhs") => "haskell".to_string(),
             _ => "text".to_string(),
         }
     }

src/extractor/models/options.rs

@@ -35,6 +35,8 @@ impl Default for ExtractionOptions {
                 "**/*.cc".to_string(),
                 "**/*.cxx".to_string(),
                 "**/*.hpp".to_string(),
+                "**/*.hs".to_string(),
+                "**/*.lhs".to_string(),
             ],
             exclude_patterns: vec![
                 "**/target/**".to_string(),

src/extractor/parsers/mod.rs

@@ -9,6 +9,7 @@ pub mod c;
 pub mod cpp;
 pub mod csharp;
 pub mod go;
+pub mod haskell;
 pub mod java;
 pub mod javascript;
 pub mod kotlin;
@@ -109,6 +110,12 @@ impl ParserRegistry {
             Box::new(cpp::CppExtractor)
         });
 
+        registry.register(
+            Language::Haskell,
+            haskell::HaskellExtractor::create_parser,
+            || Box::new(haskell::HaskellExtractor),
+        );
+
         registry
     }
 
@@ -145,7 +152,7 @@ impl ParserRegistry {
         let tree_sitter_lang = extractor.tree_sitter_language();
         let query_str = extractor.query_patterns();
 
-        Query::new(tree_sitter_lang, query_str).map_err(|e| {
+        Query::new(&tree_sitter_lang, query_str).map_err(|e| {
             GitTypeError::ExtractionFailed(format!(
                 "Failed to create query for {:?}: {}",
                 language, e
@@ -158,7 +165,7 @@ impl ParserRegistry {
         let tree_sitter_lang = extractor.tree_sitter_language();
         let query_str = extractor.comment_query();
 
-        Query::new(tree_sitter_lang, query_str).map_err(|e| {
+        Query::new(&tree_sitter_lang, query_str).map_err(|e| {
             GitTypeError::ExtractionFailed(format!(
                 "Failed to create comment query for {:?}: {}",
                 language, e