dfmt :: Double -> PP.Doc
dfmt d | isNaN d = "nan"
       | otherwise = PP.text $ fshowFFloat (Just 6) (FD d) ""
dfmt :: Double -> PP.Doc
dfmt d | isNaN d = "nan"
       | otherwise = PP.text $ fshowFFloat (Just 6) (FD d) ""
dfmt d | isNaN d = "nan"
       | otherwise = PP.text $ fshowFFloat (Just 6) (FD d) ""