X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FDirectory.pm;h=9472b460010c425f64ea15f08e303daca9d06e9a;hb=62a39b8f5d0ae86b26350664828069a2a44f5645;hp=33c40ed86170ebbbb4e263594964df82c760bd45;hpb=fc7b638849c6b9f22f971b87a9aaacdb43957f71;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Directory.pm b/lib/Text/Tradition/Directory.pm
index 33c40ed..9472b46 100644
--- a/lib/Text/Tradition/Directory.pm
+++ b/lib/Text/Tradition/Directory.pm
@@ -163,8 +163,6 @@ has +typemap => (
           KiokuDB::TypeMap::Entry::Naive->new(),
         "Graph" => Text::Tradition::TypeMap::Entry->new(),
         "Graph::AdjacencyMap" => Text::Tradition::TypeMap::Entry->new(),
-		"Lingua::Features::Structure" => Text::Tradition::TypeMap::Entry->new,
-		"Lingua::Features::FeatureType" => Text::Tradition::TypeMap::Entry->new,
       }
     );
   },
@@ -218,11 +216,11 @@ before [ qw/ delete / ] => sub {
 
 # TODO Garbage collection doesn't work. Suck it up and live with the 
 # inflated DB.
-# after delete => sub {
-# 	my $self = shift;
-# 	my $gc = KiokuDB::GC::Naive->new( backend => $self->directory->backend );
-# 	$self->directory->backend->delete( $gc->garbage->members );
-# };
+after delete => sub {
+	my $self = shift;
+	my $gc = KiokuDB::GC::Naive->new( backend => $self->directory->backend );
+	$self->directory->backend->delete( $gc->garbage->members );
+};
 
 sub save {
 	my $self = shift;