From 136d7d82cdab45b50cafc7c3f53cac7805e3cb7c Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Sun, 26 Mar 2017 15:31:08 +0300
Subject: put utility modules to bin/Utils/

---
 bin/PromptMessage.hs | 39 ---------------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 bin/PromptMessage.hs

(limited to 'bin/PromptMessage.hs')

diff --git a/bin/PromptMessage.hs b/bin/PromptMessage.hs
deleted file mode 100644
index a3ff776..0000000
--- a/bin/PromptMessage.hs
+++ /dev/null
@@ -1,39 +0,0 @@
--- |
--- Copyright   : (c) 2016 Egor Tensin <Egor.Tensin@gmail.com>
--- License     : MIT
--- Maintainer  : Egor.Tensin@gmail.com
--- Stability   : experimental
--- Portability : Windows-only
-
-module PromptMessage
-    ( oldNewMessage
-    , newMessage
-    , wipeMessage
-    ) where
-
-import Text.Printf (printf)
-
-import qualified WindowsEnv
-
-oldNewMessage :: WindowsEnv.Profile -> WindowsEnv.VarName -> WindowsEnv.VarValue -> WindowsEnv.VarValue -> String
-oldNewMessage profile name oldValue newValue =
-    descrMsg ++ oldValueMsg ++ newValueMsg
-  where
-    profileKey = WindowsEnv.profileKeyPath profile
-    descrMsg = printf "Saving variable '%s' to '%s'...\n" name (show profileKey)
-    oldValueMsg = printf "\tOld value: %s\n" oldValue
-    newValueMsg = printf "\tNew value: %s\n" newValue
-
-newMessage :: WindowsEnv.Profile -> WindowsEnv.VarName -> WindowsEnv.VarValue -> String
-newMessage profile name newValue =
-    descrMsg ++ newValueMsg
-  where
-    profileKey = WindowsEnv.profileKeyPath profile
-    descrMsg = printf "Saving variable '%s' to '%s'...\n" name (show profileKey)
-    newValueMsg = printf "\tNew value: %s\n" newValue
-
-wipeMessage :: WindowsEnv.Profile -> WindowsEnv.VarName -> String
-wipeMessage profile name =
-    printf "Deleting variable '%s' from '%s'...\n" name (show profileKey)
-  where
-    profileKey = WindowsEnv.profileKeyPath profile
-- 
cgit v1.2.3