/usr/web/sources/contrib/fernan/nhc98/src/prelude/Numeric/ShowSigned.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Numeric/ShowSigned.hs


module Numeric where

showSigned:: (Real a) => (a -> ShowS) -> Int -> a -> ShowS
showSigned showPos p x = 
	 if x < 0 then showParen (p > 6)
	     (showChar '-' . showPos (negate x))
	 else 
	      showPos x

(Return to Plan 9 Home Page)