github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Spacing.

Browse Source
This commit is contained in:
Rob Rix 2016-06-30 13:45:44 -04:00
parent b0b8aa0616
commit d9e4602c67
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/Term/Arbitrary.hs
View File

@ -35,6 +35,7 @@ termOfSize n = (ArbitraryTerm .) . (:<) <$> arbitrary <*> syntaxOfSize n
arbitraryTermSize :: ArbitraryTerm leaf annotation -> Int arbitraryTermSize :: ArbitraryTerm leaf annotation -> Int
arbitraryTermSize = cata (succ . sum) . toTerm arbitraryTermSize = cata (succ . sum) . toTerm
-- Instances -- Instances
type instance Base (ArbitraryTerm leaf annotation) = CofreeF (Syntax leaf) annotation type instance Base (ArbitraryTerm leaf annotation) = CofreeF (Syntax leaf) annotation