From fc65ef95b26168ffd96a16c1d1912fa081b5aba4 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 24 Oct 2017 00:03:20 -0400 Subject: [PATCH] Featurize without getField. --- src/RWS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/RWS.hs b/src/RWS.hs index a5c64612e..c74288bb6 100644 --- a/src/RWS.hs +++ b/src/RWS.hs @@ -140,7 +140,7 @@ mapContiguous canCompare = go [] [] featurize :: Functor syntax => Int -> Term syntax (Record (FeatureVector ': fields)) -> UnmappedTerm syntax (Record (FeatureVector ': fields)) -featurize index term = UnmappedTerm index (getField (extract term)) (eraseFeatureVector term) +featurize index term = UnmappedTerm index (rhead (extract term)) (eraseFeatureVector term) eraseFeatureVector :: Functor syntax => Term syntax (Record (FeatureVector ': fields)) -> Term syntax (Record (FeatureVector ': fields)) eraseFeatureVector (Term.Term (In record functor)) = termIn (setFeatureVector record nullFeatureVector) functor