From 62f1e6b804a940506eff5f3f924d2d000e16119d Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Mon, 18 Jul 2016 04:47:21 +0300
Subject: fix compiler warnings + refactoring

---
 apps/Banner.hs | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100644 apps/Banner.hs

(limited to 'apps/Banner.hs')

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)
-- 
cgit v1.2.3