Fix fannkuch-redux for GHC<=8.2
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Wed, 17 Jan 2018 11:39:10 +0000 (14:39 +0300)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Wed, 17 Jan 2018 11:39:22 +0000 (14:39 +0300)
Reviewers: O26 nofib

Differential Revision: https://phabricator.haskell.org/D4320

shootout/fannkuch-redux/Main.hs

index b920e9f..c2705ba 100644 (file)
@@ -23,6 +23,7 @@ instance Semigroup F where
 
 instance Monoid F where
        mempty = F 0 0
+       mappend = (<>)
 
 incPtr = (`advancePtr` 1)
 decPtr = (`advancePtr` (-1))