From 427ae9ad54492954578cafbfcd2d815a084e0986 Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Mon, 18 Jul 2016 00:17:44 +0300
Subject: put modules to 'Windows'

---
 src/Environment.hs | 88 ------------------------------------------------------
 1 file changed, 88 deletions(-)
 delete mode 100644 src/Environment.hs

(limited to 'src/Environment.hs')

diff --git a/src/Environment.hs b/src/Environment.hs
deleted file mode 100644
index f370de4..0000000
--- a/src/Environment.hs
+++ /dev/null
@@ -1,88 +0,0 @@
-{-
- - Copyright 2015 Egor Tensin <Egor.Tensin@gmail.com>
- - This file is licensed under the terms of the MIT License.
- - See LICENSE.txt for details.
--}
-
-module Environment
-    ( Profile(..)
-    , profileKeyPath
-
-    , VarName
-    , VarValue
-    , query
-    , engrave
-    , wipe
-
-    , pathJoin
-    , pathSplit
-    ) where
-
-import Data.List       (intercalate)
-import Data.List.Split (splitOn)
-import System.IO.Error (catchIOError, isDoesNotExistError)
-
-import qualified Registry
-import           WindowsUtils (notifyEnvironmentUpdate)
-
-data Profile = CurrentUser
-             | AllUsers
-             deriving (Eq, Show)
-
-profileRootKey :: Profile -> Registry.RootKey
-profileRootKey CurrentUser = Registry.CurrentUser
-profileRootKey AllUsers    = Registry.LocalMachine
-
-profileRootKeyPath :: Profile -> Registry.KeyPath
-profileRootKeyPath = Registry.rootKeyPath . profileRootKey
-
-profileSubKeyPath :: Profile -> Registry.KeyPath
-profileSubKeyPath CurrentUser =
-    Registry.keyPathFromString "Environment"
-profileSubKeyPath AllUsers =
-    Registry.keyPathFromString "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment"
-
-profileKeyPath :: Profile -> Registry.KeyPath
-profileKeyPath profile = Registry.keyPathJoin
-    [ profileRootKeyPath profile
-    , profileSubKeyPath  profile
-    ]
-
-openRootProfileKey :: Profile -> Registry.KeyHandle
-openRootProfileKey = Registry.openRootKey . profileRootKey
-
-openProfileKey :: Profile -> IO Registry.KeyHandle
-openProfileKey profile = Registry.openSubKey (openRootProfileKey profile) (profileSubKeyPath profile)
-
-type VarName  = Registry.ValueName
-type VarValue = Registry.ValueData
-
-query :: Profile -> VarName -> IO (Maybe VarValue)
-query profile name = do
-    keyHandle <- openProfileKey profile
-    catchIOError (Registry.getString keyHandle name >>= return . Just) emptyIfDoesNotExist
-  where
-    emptyIfDoesNotExist e = if isDoesNotExistError e then return Nothing else ioError e
-
-engrave :: Profile -> VarName -> VarValue -> IO ()
-engrave profile name value = do
-    keyHandle <- openProfileKey profile
-    Registry.setString keyHandle name value
-    notifyEnvironmentUpdate
-
-wipe :: Profile -> VarName -> IO ()
-wipe profile name = do
-    keyHandle <- openProfileKey profile
-    catchIOError (Registry.delValue keyHandle name) ignoreIfDoesNotExist
-    notifyEnvironmentUpdate
-  where
-    ignoreIfDoesNotExist e = if isDoesNotExistError e then return () else ioError e
-
-pathSep :: VarValue
-pathSep = ";"
-
-pathSplit :: VarValue -> [VarValue]
-pathSplit = filter (not . null) . splitOn pathSep
-
-pathJoin :: [VarValue] -> VarValue
-pathJoin = intercalate pathSep . filter (not . null)
-- 
cgit v1.2.3