blob: 6b015a2fb99e0731b174897d1739579c11716514 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
-- Copyright 2016 Benjamin Barenblat
--
-- Licensed under the Apache License, Version 2.0 (the “License”); you may not
-- use this file except in compliance with the License. You may obtain a copy
-- of the License at
--
-- http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an “AS IS” BASIS, WITHOUT
-- WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
-- License for the specific language governing permissions and limitations under
-- the License.
module Main where
import Control.Applicative ((<$>))
import Control.Concurrent (threadDelay)
import Control.Monad (forever, when)
import Data.Either.Utils (forceEither)
import qualified Config
import qualified Pandora
main :: IO ()
main = do
config <- forceEither <$> Config.load
forever $ do
percent <- Pandora.chargePercent
current <- Pandora.chargeCurrent
chargingEnabled <- Pandora.chargingEnabled
if chargingEnabled
&& Config.stopCapacity config <= percent
&& 0 < current
&& current < Config.stopCurrent config
then Pandora.setCharging False
else when (not chargingEnabled
&& percent <= Config.stopCapacity config) $
Pandora.setCharging True
threadDelay (secondsToMicroseconds 60)
secondsToMicroseconds :: Int -> Int
secondsToMicroseconds = (* 1000000)
|