Skip to content

Commit 8d52e0d

Browse files
authored
Guard CyclicSCC pattern synonym with CPP (#959)
1 parent 04d9198 commit 8d52e0d

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

containers/src/Data/Graph.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -164,6 +164,7 @@ data SCC vertex
164164
, Read -- ^ @since 0.5.9
165165
)
166166

167+
#ifdef __GLASGOW_HASKELL__
167168
-- | Partial pattern synonym for backward compatibility with @containers < 0.7@.
168169
pattern CyclicSCC :: [vertex] -> SCC vertex
169170
pattern CyclicSCC xs <- NECyclicSCC (NE.toList -> xs) where
@@ -172,7 +173,6 @@ pattern CyclicSCC xs <- NECyclicSCC (NE.toList -> xs) where
172173

173174
{-# COMPLETE AcyclicSCC, CyclicSCC #-}
174175

175-
#ifdef __GLASGOW_HASKELL__
176176
-- | @since 0.5.9
177177
deriving instance Data vertex => Data (SCC vertex)
178178

0 commit comments

Comments
 (0)