File tree Expand file tree Collapse file tree 1 file changed +8
-0
lines changed
containers/src/Data/Sequence/Internal Expand file tree Collapse file tree 1 file changed +8
-0
lines changed Original file line number Diff line number Diff line change @@ -83,7 +83,11 @@ data CheckedBottom node a t where
8383checkBottom :: Depth_ node a t -> CheckedBottom node a t
8484checkBottom (Depth_ 0 ) = unsafeCoerce AtBottom
8585checkBottom (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
122126checkBottom2 :: Depth2_ node a t b u -> CheckedBottom2 node a t b u
123127checkBottom2 (Depth2_ 0 ) = unsafeCoerce AtBottom2
124128checkBottom2 (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
You can’t perform that action at this time.
0 commit comments