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
         first f (x,y) = (f x, y)
 
 
+instance Semigroup (ScanningParser a b) where
+    (<>) = mappend
 instance Monoid (ScanningParser a b) where
     mempty = ScanningParser (const Nothing) (const $ const (Nothing,[]))
     mappend (ScanningParser ffstA pbdyA)