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