We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 93cdfe8 commit bcabaabCopy full SHA for bcabaab
1 file changed
src/Language/PureScript/Sugar/BindingGroups.hs
@@ -154,6 +154,7 @@ getProperName _ = error "Expected DataDeclaration"
154
--
155
toBindingGroup :: ModuleName -> SCC Declaration -> Either ErrorStack Declaration
156
toBindingGroup _ (AcyclicSCC d) = return d
157
+toBindingGroup _ (CyclicSCC [d]) = return d
158
toBindingGroup moduleName (CyclicSCC ds') =
159
-- Once we have a mutually-recursive group of declarations, we need to sort
160
-- them further by their immediate dependencies (those outside function
0 commit comments