Skip to content

Commit 209374c

Browse files
committed
Try to fix for old GHC
1 parent 9399062 commit 209374c

File tree

1 file changed

+8
-0
lines changed
  • containers/src/Data/Sequence/Internal

1 file changed

+8
-0
lines changed

containers/src/Data/Sequence/Internal/Depth.hs

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -83,7 +83,11 @@ data CheckedBottom node a t where
8383
checkBottom :: Depth_ node a t -> CheckedBottom node a t
8484
checkBottom (Depth_ 0) = unsafeCoerce AtBottom
8585
checkBottom (Depth_ d) = unsafeCoerce (NotBottom (Depth_ (d - 1)))
86+
#if MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
8687
{-# INLINE checkBottom #-}
88+
#else
89+
{-# NOINLINE checkBottom #-}
90+
#endif
8791

8892

8993
-- | A version of 'Depth_' for implementing traversals. Conceptually,
@@ -122,4 +126,8 @@ data CheckedBottom2 node a t b u where
122126
checkBottom2 :: Depth2_ node a t b u -> CheckedBottom2 node a t b u
123127
checkBottom2 (Depth2_ 0) = unsafeCoerce AtBottom2
124128
checkBottom2 (Depth2_ d) = unsafeCoerce (NotBottom2 (Depth2_ (d - 1)))
129+
#if MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
125130
{-# INLINE checkBottom2 #-}
131+
#else
132+
{-# NOINLINE checkBottom2 #-}
133+
#endif

0 commit comments

Comments
 (0)