packages/code/dfetch/app/Dfetch/Brightness.hs


1
2
3
4
5
6
7
8

module Dfetch.Brightness where

import System.FilePath ((</>))
import System.Directory (listDirectory)
import Data.List (isPrefixOf)

basePath :: FilePath
basePath = "/sys/class/backlight/"