Sparkline in unicode: Difference between revisions

m
m (some code cleanup)
Line 164:
 
drawSparkLineWithStats :: String -> IO ()
drawSparkLineWithStats xs = putStrLn sp >> print st
letwhere (sp, st) = makeSparkLine xs
in putStrLn (sp ++ "\n" ++ show st)
 
main :: IO ()
Anonymous user