fullDesc :: InfoMod a
fullDesc = InfoMod $ \i -> i { infoFullDesc = True }
fullDesc :: InfoMod a
fullDesc = InfoMod $ \i -> i { infoFullDesc = True }
fullDesc = InfoMod $ \i -> i { infoFullDesc = True }