packages/code/dfetch/app/Main.hs


1
2
3
4
5
6
7
8
9
10
11

module Main (main) where

import Dfetch.Battery (renderBat, allBatteries)
import Dfetch.Brightness (allBs)

main :: IO ()
main = do
  bats <- renderBat <$> allBatteries
  backlights <- allBs
  putStrLn bats
  print backlights