@@ -98,6 +98,10 @@ prettyPrintDeclaration (TypeDeclaration ident ty) =
9898 text (showIdent ident ++ " :: ") <> typeAsBox ty
9999prettyPrintDeclaration (ValueDeclaration ident _ [] (Right val)) =
100100 text (showIdent ident ++ " = ") <> prettyPrintValue val
101+prettyPrintDeclaration (BindingGroupDeclaration ds) =
102+ vsep 1 left (map (prettyPrintDeclaration . toDecl) ds)
103+ where
104+ toDecl (nm, t, e) = ValueDeclaration nm t [] (Right e)
101105prettyPrintDeclaration (PositionedDeclaration _ _ d) = prettyPrintDeclaration d
102106prettyPrintDeclaration _ = error "Invalid argument to prettyPrintDeclaration"
103107