Add CPP magic for GHC 7.10 compatibility
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 1 Apr 2015 11:14:49 +0000 (13:14 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 1 Apr 2015 11:14:49 +0000 (13:14 +0200)
Data/List/Fusion/Probe.hs

index 927f627..cbe7129 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {- |
    Copyright  : Copyright (C) 2014 Joachim Breitner
    License    : BSD3
@@ -12,6 +13,11 @@ module Data.List.Fusion.Probe where
 
 import GHC.Exts (build, augment)
 
+#if MIN_VERSION_base(4,8,0)
+import Prelude hiding (foldr)
+import GHC.OldList (foldr)
+#endif
+
 -- | This function can be wrapped around a list that should be compiled away by
 -- list fusion. If it does, this function will disappear. If not, it will throw
 -- an error at runtime.