convDescriptor :: Meap.Feature -> Descriptor
convDescriptor f = Descriptor
                       (meapFeaturePrefix ++ (Meap.feature_name f))
                       (Meap.feature_degree f)
convDescriptor :: Meap.Feature -> Descriptor
convDescriptor f = Descriptor
                       (meapFeaturePrefix ++ (Meap.feature_name f))
                       (Meap.feature_degree f)
convDescriptor f = Descriptor
                       (meapFeaturePrefix ++ (Meap.feature_name f))
                       (Meap.feature_degree f)