footer :: SysInfo -> IO ()
footer i = do
    putStrLn "-----------+-----------------------+------------------------------+------------------------------"
    putStrLn . unlines . map (" " ++) . lines . showSysInfo $ i
footer :: SysInfo -> IO ()
footer i = do
    putStrLn "-----------+-----------------------+------------------------------+------------------------------"
    putStrLn . unlines . map (" " ++) . lines . showSysInfo $ i
footer i = do
    putStrLn "-----------+-----------------------+------------------------------+------------------------------"
    putStrLn . unlines . map (" " ++) . lines . showSysInfo $ i