equal
deleted
inserted
replaced
153 |
153 |
154 val alignment = |
154 val alignment = |
155 [{leftAlign = true, padChar = #"."}, |
155 [{leftAlign = true, padChar = #"."}, |
156 {leftAlign = true, padChar = #" "}] |
156 {leftAlign = true, padChar = #" "}] |
157 |
157 |
158 val table = alignTable alignment (map listOpts options) |
158 val table = alignTable alignment (List.map listOpts options) |
159 in |
159 in |
160 header ^ join "\n" table ^ "\n" ^ footer |
160 header ^ join "\n" table ^ "\n" ^ footer |
161 end; |
161 end; |
162 |
162 |
163 (* ------------------------------------------------------------------------- *) |
163 (* ------------------------------------------------------------------------- *) |