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
83
83
checkBottom :: Depth_ node a t -> CheckedBottom node a t
84
84
checkBottom (Depth_ 0 ) = unsafeCoerce AtBottom
85
85
checkBottom (Depth_ d) = unsafeCoerce (NotBottom (Depth_ (d - 1 )))
86
+ #if MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
86
87
{-# INLINE checkBottom #-}
88
+ #else
89
+ {-# NOINLINE checkBottom #-}
90
+ #endif
87
91
88
92
89
93
-- | A version of 'Depth_' for implementing traversals. Conceptually,
@@ -122,4 +126,8 @@ data CheckedBottom2 node a t b u where
122
126
checkBottom2 :: Depth2_ node a t b u -> CheckedBottom2 node a t b u
123
127
checkBottom2 (Depth2_ 0 ) = unsafeCoerce AtBottom2
124
128
checkBottom2 (Depth2_ d) = unsafeCoerce (NotBottom2 (Depth2_ (d - 1 )))
129
+ #if MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
125
130
{-# INLINE checkBottom2 #-}
131
+ #else
132
+ {-# NOINLINE checkBottom2 #-}
133
+ #endif
You can’t perform that action at this time.
0 commit comments