Fixed CPP recursion problem.

jgm · Jan 6, 2016 · 4bc7f5c · 4bc7f5c
1 parent 8511f02
commit 4bc7f5c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Text/Pandoc/Walk.hs b/Text/Pandoc/Walk.hs
@@ -1,9 +1,9 @@
 {-# LANGUAGE MultiParamTypeClasses, FlexibleInstances, ScopedTypeVariables, CPP #-}
 #if MIN_VERSION_base(4,8,0)
-#define OVERLAPPING {-# OVERLAPPING #-}
+#define OVERLAPS {-# OVERLAPPING #-}
 #else
 {-# LANGUAGE OverlappingInstances #-}
-#define OVERLAPPING
+#define OVERLAPS
 #endif
 {-
 Copyright (C) 2013 John MacFarlane <jgm@berkeley.edu>
@@ -97,7 +97,7 @@ instance (Foldable t, Traversable t, Walkable a b) => Walkable a (t b) where
   walkM f = T.mapM (walkM f)
   query f = F.foldMap (query f)
 
-instance OVERLAPPING
+instance OVERLAPS
         (Walkable a b, Walkable a c) => Walkable a (b,c) where
   walk f (x,y)  = (walk f x, walk f y)
   walkM f (x,y) = do x' <- walkM f x