src/Tools/Metis/src/Options.sml
changeset 42102 fcfd07f122d4
parent 39502 cffceed8e7fa
child 45778 df6e210fb44c
equal deleted inserted replaced
42101:2c75267e7b8d 42102:fcfd07f122d4
   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 (* ------------------------------------------------------------------------- *)