1 {-# OPTIONS_GHC -Wall -Werror #-}
7 nums :: Fractional a => [a]
8 nums = [0,7,7.1,7.01,7.9,7.09,5 + 7,3.2 - 7.8,5.75 * (-2)]
11 main = do mapM_ putStrLn $ doit (nums :: [Micro])
12 mapM_ putStrLn $ doit (nums :: [Pico])
14 doit :: HasResolution a => [Fixed a] -> [String]
15 doit xs = [ showFun (signFun x)
16 | showFun <- [show, showFixed True]
17 , signFun <- [id, negate]