blob: 226a090998d18d0d8fe8de3901680aeefd0e18c8 (
plain) (
blame)
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
|
{-
- Copyright 2016 Egor Tensin <Egor.Tensin@gmail.com>
- This file is licensed under the terms of the MIT License.
- See LICENSE.txt for details.
-}
module PromptMessage
( engraveMessage
, wipeMessage
) where
import Data.Maybe (fromJust, isJust)
import Text.Printf (printf)
import qualified Windows.Environment as Env
engraveMessage :: Env.Profile -> Env.VarName -> Maybe Env.VarValue -> Env.VarValue -> String
engraveMessage profile name oldValue newValue =
warning ++ values
where
warning = printf "Saving variable '%s' to '%s'...\n" name $ Env.profileKeyPath profile
values
| isJust oldValue = oldValueMsg ++ newValueMsg
| otherwise = valueMsg
oldValueMsg = printf "\tOld value: %s\n" $ fromJust oldValue
newValueMsg = printf "\tNew value: %s\n" newValue
valueMsg = printf "\tValue: %s\n" newValue
wipeMessage :: Env.Profile -> Env.VarName -> String
wipeMessage profile name =
printf "Deleting variable '%s' from '%s'...\n" name $ Env.profileKeyPath profile
|
