Fix typo.
authorLennart Kolmodin <kolmodin@gmail.com>
Tue, 19 Apr 2016 15:42:34 +0000 (17:42 +0200)
committerLennart Kolmodin <kolmodin@gmail.com>
Tue, 19 Apr 2016 15:42:34 +0000 (17:42 +0200)
src/Data/Binary/Put.hs

index cc6e414..36aa6a5 100644 (file)
@@ -158,7 +158,7 @@ mappend' :: Put -> Put -> Put
 mappend' m k = Put $
     let PairS _ w  = unPut m
         PairS _ w' = unPut k
-    in PairS () (w `Monodid.mappend` w')
+    in PairS () (w `Monoid.mappend` w')
 {-# INLINE mappend' #-}
 
 #ifdef HAS_SEMIGROUP