github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 13:21:59 +03:00
Code Issues Projects Releases Wiki Activity

Stub in Bags.

Browse Source
This commit is contained in:
Rob Rix 2016-06-21 16:58:38 -04:00
parent 53b53a7c8f
commit e6036c0d76
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Gram.hs
View File

@ -6,3 +6,5 @@ data Gram label = Gram { stem :: [label], base :: [label] }
serialize :: Gram label -> [label]
serialize gram = stem gram <> base gram
newtype Bag a = Bag { unBag :: [a] -> [a] }