fix old compiler eta reduce

Author: mstksg

src/Data/IntMap/NonEmpty/Internal.hs

@@ -185,6 +185,7 @@ instance NFData a => NFData (NEIntMap a) where
 -- Copyright   :  (c) Daan Leijen 2002
 --                (c) Andriy Palamarchuk 2008
 --                (c) wren romano 2016
+#if MIN_VERSION_base(4,16,0)
 instance Data a => Data (NEIntMap a) where
   gfoldl f z im = z fromList `f` toList im
   toConstr _ = fromListConstr
@@ -193,6 +194,18 @@ instance Data a => Data (NEIntMap a) where
     _ -> error "gunfold"
   dataTypeOf _ = intMapDataType
   dataCast1 = gcast1
+#else
+#ifndef __HLINT__
+instance Data a => Data (NEIntMap a) where
+  gfoldl f z im = z fromList `f` toList im
+  toConstr _ = fromListConstr
+  gunfold k z c = case constrIndex c of
+    1 -> k (z fromList)
+    _ -> error "gunfold"
+  dataTypeOf _ = intMapDataType
+  dataCast1 f = gcast1 f
+#endif
+#endif
 
 fromListConstr :: Constr
 fromListConstr = mkConstr intMapDataType "fromList" [] Prefix

src/Data/Map/NonEmpty/Internal.hs

@@ -185,6 +185,7 @@ instance (NFData k, NFData a) => NFData (NEMap k a) where
 --
 -- Copyright   :  (c) Daan Leijen 2002
 --                (c) Andriy Palamarchuk 2008
+#if MIN_VERSION_base(4,16,0)
 instance (Data k, Data a, Ord k) => Data (NEMap k a) where
   gfoldl f z m = z fromList `f` toList m
   toConstr _ = fromListConstr
@@ -193,6 +194,18 @@ instance (Data k, Data a, Ord k) => Data (NEMap k a) where
     _ -> error "gunfold"
   dataTypeOf _ = mapDataType
   dataCast2 = gcast2
+#else
+#ifndef __HLINT__
+instance (Data k, Data a, Ord k) => Data (NEMap k a) where
+  gfoldl f z m = z fromList `f` toList m
+  toConstr _ = fromListConstr
+  gunfold k z c = case constrIndex c of
+    1 -> k (z fromList)
+    _ -> error "gunfold"
+  dataTypeOf _ = mapDataType
+  dataCast2 f = gcast2 f
+#endif
+#endif
 
 fromListConstr :: Constr
 fromListConstr = mkConstr mapDataType "fromList" [] Prefix

src/Data/Sequence/NonEmpty/Internal.hs

@@ -190,12 +190,23 @@ instance Eq1 NESeq where
 instance Ord1 NESeq where
   liftCompare cmp xs ys = liftCompare cmp (toNonEmpty xs) (toNonEmpty ys)
 
+#if MIN_VERSION_base(4,16,0)
 instance Data a => Data (NESeq a) where
   gfoldl f z (x :<|| xs) = z (:<||) `f` x `f` xs
   gunfold k z _ = k (k (z (:<||)))
   toConstr _ = consConstr
   dataTypeOf _ = seqDataType
   dataCast1 = gcast1
+#else
+#ifndef __HLINT__
+instance Data a => Data (NESeq a) where
+  gfoldl f z (x :<|| xs) = z (:<||) `f` x `f` xs
+  gunfold k z _ = k (k (z (:<||)))
+  toConstr _ = consConstr
+  dataTypeOf _ = seqDataType
+  dataCast1 f = gcast1 f
+#endif
+#endif
 
 consConstr :: Constr
 consConstr = mkConstr seqDataType ":<||" [] Infix

src/Data/Set/NonEmpty/Internal.hs

@@ -151,6 +151,7 @@ instance NFData a => NFData (NESet a) where
 -- Data instance code from Data.Set.Internal
 --
 -- Copyright   :  (c) Daan Leijen 2002
+#if MIN_VERSION_base(4,16,0)
 instance (Data a, Ord a) => Data (NESet a) where
   gfoldl f z set = z fromList `f` toList set
   toConstr _ = fromListConstr
@@ -159,6 +160,18 @@ instance (Data a, Ord a) => Data (NESet a) where
     _ -> error "gunfold"
   dataTypeOf _ = setDataType
   dataCast1 = gcast1
+#else
+#ifndef __HLINT__
+instance (Data a, Ord a) => Data (NESet a) where
+  gfoldl f z set = z fromList `f` toList set
+  toConstr _ = fromListConstr
+  gunfold k z c = case constrIndex c of
+    1 -> k (z fromList)
+    _ -> error "gunfold"
+  dataTypeOf _ = setDataType
+  dataCast1 f = gcast1 f
+#endif
+#endif
 
 fromListConstr :: Constr
 fromListConstr = mkConstr setDataType "fromList" [] Prefix