aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/apps/Banner.hs
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2016-07-18 04:47:21 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2016-07-18 04:47:21 +0300
commit62f1e6b804a940506eff5f3f924d2d000e16119d (patch)
tree443872b2e8ba439cb77de95391bba9319449de08 /apps/Banner.hs
parentREADME update (diff)
downloadwindows-env-62f1e6b804a940506eff5f3f924d2d000e16119d.tar.gz
windows-env-62f1e6b804a940506eff5f3f924d2d000e16119d.zip
fix compiler warnings + refactoring
Diffstat (limited to '')
-rw-r--r--apps/Banner.hs31
1 files changed, 0 insertions, 31 deletions
diff --git a/apps/Banner.hs b/apps/Banner.hs
deleted file mode 100644
index c25741b..0000000
--- a/apps/Banner.hs
+++ /dev/null
@@ -1,31 +0,0 @@
-{-
- - 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 Banner
- ( engraveBanner
- , wipeBanner
- ) where
-
-import Data.Maybe (fromJust, isJust)
-import Text.Printf (printf)
-
-import qualified Windows.Environment as Env
-
-engraveBanner :: Env.Profile -> Env.VarName -> Maybe Env.VarValue -> Env.VarValue -> String
-engraveBanner profile name oldValue newValue =
- warning ++ valuesStr
- where
- warning = printf "Saving variable '%s' to '%s'...\n" name (Env.profileKeyPath profile)
- valuesStr
- | isJust oldValue = oldValueStr ++ newValueStr
- | otherwise = theValueStr
- oldValueStr = printf "\tOld value: %s\n" $ fromJust oldValue
- newValueStr = printf "\tNew value: %s\n" newValue
- theValueStr = printf "\tValue: %s\n" newValue
-
-wipeBanner :: Env.Profile -> Env.VarName -> String
-wipeBanner profile name =
- printf "Deleting variable '%s' from '%s'...\n" name (Env.profileKeyPath profile)