packages/code/dfetch/app/Main.hs


1
2
3
4
5
6
7
8
9
10
11

module Main (main) where

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

main :: IO ()
main = do
  bats <- allBatteries
  backlights <- allBs
  print bats
  print backlights