Fix #365
commit8d006d9f1fae163f41bf6f7af7728d3a72482772
authorPhil Freeman <paf31@cantab.net>
dateWed 25 Mar 2015, 10:29 (12 years ago)
parent35462a0
examples/failing/365.pursnew file+11
@@ -0,0 +1,11 @@
1+module Main where
2+
3+class C a where
4+ f :: a -> a
5+ g :: a -> a
6+
7+instance cS :: C String where
8+ f s = s
9+ g = f
10+
11+main = g "Done"
src/Language/PureScript/Sugar/BindingGroups.hs−1
@@ -157,7 +157,6 @@ getProperName _ = error "Expected DataDeclaration"
157157--
158158toBindingGroup :: (Functor m, MonadError MultipleErrors m) => ModuleName -> SCC Declaration -> m Declaration
159159toBindingGroup _ (AcyclicSCC d) = return d
160−toBindingGroup _ (CyclicSCC [d]) = return d
161160toBindingGroup moduleName (CyclicSCC ds') =
162161 -- Once we have a mutually-recursive group of declarations, we need to sort
163162 -- them further by their immediate dependencies (those outside function