X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsBinds.lhs;fp=ghc%2Fcompiler%2FhsSyn%2FHsBinds.lhs;h=b5c21792af2fd82e925fa3f356857cf3fcd692ae;hb=f85903abe9103e545ea5b1dc6fdd6b672da4f3f2;hp=69b75b428c853b4a43580a646ff0ff04ba8b7221;hpb=f6baf3ba39bb63a1159935a55c39214b4b51e0d3;p=ghc-hetmet.git diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs index 69b75b4..b5c2179 100644 --- a/ghc/compiler/hsSyn/HsBinds.lhs +++ b/ghc/compiler/hsSyn/HsBinds.lhs @@ -40,6 +40,7 @@ data HsLocalBinds id -- Bindings in a 'let' expression -- or a 'where' clause = HsValBinds (HsValBinds id) | HsIPBinds (HsIPBinds id) + | EmptyLocalBinds data HsValBinds id -- Value bindings (not implicit parameters)