Commit 1fe1e055 authored by Ian D. Bollinger's avatar Ian D. Bollinger
Browse files

Add comment about temporary fix for pretty-printing defaults

parent b74db39f
......@@ -74,6 +74,8 @@ ppSourceRepo repo =
sourceRepoFieldDescrs' = [fd | fd <- sourceRepoFieldDescrs, fieldName fd /= "kind"]
-- TODO: this is a temporary hack. Ideally, fields containing default values
-- would be filtered out when the @FieldDescr a@ list is generated.
ppFieldsFiltered :: [(String, String)] -> [FieldDescr a] -> a -> Doc
ppFieldsFiltered removable fields x = ppFields (filter nondefault fields) x
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment