Revert @dylex's binding group change - was breaking strongcheck. Third time lucky ...
commitbcabaabd0026d35b7f84fc3704a14ff93b4e2bfa
authorPhil Freeman <paf31@cantab.net>
dateFri 28 Nov 2014, 13:05 (12 years ago)
parent93cdfe8
src/Language/PureScript/Sugar/BindingGroups.hs+1
@@ -154,6 +154,7 @@ getProperName _ = error "Expected DataDeclaration"
154154--
155155toBindingGroup :: ModuleName -> SCC Declaration -> Either ErrorStack Declaration
156156toBindingGroup _ (AcyclicSCC d) = return d
157+toBindingGroup _ (CyclicSCC [d]) = return d
157158toBindingGroup moduleName (CyclicSCC ds') =
158159 -- Once we have a mutually-recursive group of declarations, we need to sort
159160 -- them further by their immediate dependencies (those outside function