@@ -210,7 +210,8 @@ genNormalizationPropertiesModule moduleName =
210210 , " ( pattern YesStarter"
211211 -- , ", pattern MaybeCombiningStarter, pattern MaybeStarterNoDecomp"
212212 , " , pattern MaybeStarterNoDecomp"
213- , " , pattern Decomposable, pattern Combining"
213+ , " , pattern Decomposable"
214+ , " , pattern Combining"
214215 -- , "( pattern Decomposable, pattern Combining, pattern CombiningStarter"
215216 -- , ", pattern Starter, pattern Stable"
216217 , " , " <> mconcat (intersperse " , " (prop2FuncName <$> exports)) <> " )"
@@ -239,8 +240,10 @@ genNormalizationPropertiesModule moduleName =
239240 , " pattern YesStarter = " <> show yesStarter
240241 -- , "pattern YesStable = " <> show yesStable
241242 , " "
242- , " pattern Decomposable, Combining :: Int"
243+ , " pattern Decomposable :: Int"
243244 , " pattern Decomposable = " <> show decomposable
245+ , " "
246+ , " pattern Combining :: Int"
244247 , " pattern Combining = " <> show combining
245248 , " "
246249 , mconcat bitmaps
0 commit comments