@@ -46,8 +46,12 @@ allowImp syn = syn { implicitAllowed = True,
4646
4747-- | Disallow implicit type declarations
4848disallowImp :: SyntaxInfo -> SyntaxInfo
49−disallowImp syn = syn { implicitAllowed = False,
50− constraintAllowed = False }
49+disallowImp = scopedImp
50+
51+-- | Implicits hare are scoped rather than top level
52+scopedImp :: SyntaxInfo -> SyntaxInfo
53+scopedImp syn = syn { implicitAllowed = False,
54+ constraintAllowed = False }
5155
5256-- | Allow scoped constraint arguments
5357allowConstr :: SyntaxInfo -> SyntaxInfo