diff options
Diffstat (limited to 'lib/ScanningParser.hs')
-rw-r--r-- | lib/ScanningParser.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/ScanningParser.hs b/lib/ScanningParser.hs index f99e120..305402e 100644 --- a/lib/ScanningParser.hs +++ b/lib/ScanningParser.hs | |||
@@ -34,6 +34,8 @@ instance Functor (ScanningParser a) where | |||
34 | first f (x,y) = (f x, y) | 34 | first f (x,y) = (f x, y) |
35 | 35 | ||
36 | 36 | ||
37 | instance Semigroup (ScanningParser a b) where | ||
38 | (<>) = mappend | ||
37 | instance Monoid (ScanningParser a b) where | 39 | instance Monoid (ScanningParser a b) where |
38 | mempty = ScanningParser (const Nothing) (const $ const (Nothing,[])) | 40 | mempty = ScanningParser (const Nothing) (const $ const (Nothing,[])) |
39 | mappend (ScanningParser ffstA pbdyA) | 41 | mappend (ScanningParser ffstA pbdyA) |