ffmt :: Float -> PP.Doc
ffmt f | isNaN f = "nan"
       | otherwise = PP.text $ fshowFFloat (Just 6) (FF f) ""
ffmt :: Float -> PP.Doc
ffmt f | isNaN f = "nan"
       | otherwise = PP.text $ fshowFFloat (Just 6) (FF f) ""
ffmt f | isNaN f = "nan"
       | otherwise = PP.text $ fshowFFloat (Just 6) (FF f) ""