github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-06 23:46:21 +03:00
Code Issues Projects Releases Wiki Activity

Derive Eq, Ord, & Show instances for FeatureVector.

Browse Source
This commit is contained in:
Rob Rix 2017-09-14 11:49:41 -04:00
parent cd3d579bd0
commit f126756672
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/RWS.hs
View File

@ -43,6 +43,7 @@ type Label f fields label = forall b. TermF f (Record fields) b -> label
type ComparabilityRelation syntax ann1 ann2 = forall a b. TermF syntax ann1 a -> TermF syntax ann2 b -> Bool type ComparabilityRelation syntax ann1 ann2 = forall a b. TermF syntax ann1 a -> TermF syntax ann2 b -> Bool
newtype FeatureVector = FV { unFV :: UArray Int Double } newtype FeatureVector = FV { unFV :: UArray Int Double }
deriving (Eq, Ord, Show)
-- | A term which has not yet been mapped by `rws`, along with its feature vector summary & index. -- | A term which has not yet been mapped by `rws`, along with its feature vector summary & index.
data UnmappedTerm syntax ann = UnmappedTerm data UnmappedTerm syntax ann = UnmappedTerm