ppNewtypes showOptions (Newtypes m)
    = vcat [fill 8 (pretty name) <> colon <+>
            -- text "rank" <+> pretty rank <> colon <+>
            ppDataInfo defaultEnv True dataInfo 
           | (name,dataInfo) <- L.sortBy (\(n1,_) (n2,_) -> compare (show n1) (show n2)) $ M.toList m]
ppNewtypes showOptions (Newtypes m)
    = vcat [fill 8 (pretty name) <> colon <+>
            -- text "rank" <+> pretty rank <> colon <+>
            ppDataInfo defaultEnv True dataInfo 
           | (name,dataInfo) <- L.sortBy (\(n1,_) (n2,_) -> compare (show n1) (show n2)) $ M.toList m]
ppNewtypes showOptions (Newtypes m)
    = vcat [fill 8 (pretty name) <> colon <+>
            -- text "rank" <+> pretty rank <> colon <+>
            ppDataInfo defaultEnv True dataInfo 
           | (name,dataInfo) <- L.sortBy (\(n1,_) (n2,_) -> compare (show n1) (show n2)) $ M.toList m]