Revert "Catch erroneous (singleton) recursive definitions"
This reverts commit 2bd5dc46fa95bff3812f4d4e089617a53fefb186.
commitf82c9e6462d7bde729e8c4bbe2803f103f55df9f
authorPhil Freeman <paf31@cantab.net>
dateWed 26 Nov 2014, 15:49 (12 years ago)
parent0d5191e
src/Language/PureScript/Sugar/BindingGroups.hs+1
@@ -151,6 +151,7 @@ getProperName _ = error "Expected DataDeclaration"
151151--
152152toBindingGroup :: ModuleName -> SCC Declaration -> Either ErrorStack Declaration
153153toBindingGroup _ (AcyclicSCC d) = return d
154+toBindingGroup _ (CyclicSCC [d]) = return d
154155toBindingGroup moduleName (CyclicSCC ds') =
155156 -- Once we have a mutually-recursive group of declarations, we need to sort
156157 -- them further by their immediate dependencies (those outside function