rnhmjoj/scat
1
0
Fork 0
mirror of https://github.com/redelmann/scat synced 2025-01-10 06:34:20 +01:00
Code Issues Releases Wiki Activity

Merge pull request #6 from rnhmjoj/master

Browse Source 
fix for base 4.11
This commit is contained in:
Romain Edelmann 2020-02-28 15:30:17 +01:00 committed by GitHub
commit c1ded1b57e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Scat/Builder.hs
View File

@ -71,9 +71,11 @@ instance Monad Builder where
let (n', v) = runBuilder x n let (n', v) = runBuilder x n
in runBuilder (f v) n' in runBuilder (f v) n'
instance Semigroup a => Semigroup (Builder a) where
a <> b = (<>) <$> a <*> b
instance Monoid a => Monoid (Builder a) where instance Monoid a => Monoid (Builder a) where
mempty = return mempty mempty = return mempty
mappend a b = mappend <$> a <*> b
-- | Returns a positive integer less than `i`. -- | Returns a positive integer less than `i`.
lessThan :: Integral a => a -> Builder a lessThan :: Integral a => a -> Builder a