Commit 8f4c823a authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix up whitespace

parent f6b7966a
......@@ -8,9 +8,9 @@
-----------------------------------------------------------------------------
-- TODO:
-- - validate modules
-- - expanding of variables in new-style package conf
-- - version manipulation (checking whether old version exists,
-- * validate modules
-- * expanding of variables in new-style package conf
-- * version manipulation (checking whether old version exists,
-- hiding old version?)
module Main (main) where
......@@ -38,12 +38,11 @@ import System.Console.GetOpt
import Text.PrettyPrint
import qualified Control.Exception as Exception
import Data.Maybe
import Data.Char ( isSpace )
import Monad
import Directory
import System ( getArgs, getProgName, getEnv,
exitWith, ExitCode(..)
)
import System ( getArgs, getProgName, getEnv, exitWith, ExitCode(..) )
import System.IO
import System.IO.Error (try)
import Data.List ( isPrefixOf, isSuffixOf, intersperse, sortBy )
......@@ -1112,9 +1111,9 @@ parseSearchPath path = split path
(chunk', rest') = break (==searchPathSeparator) s
-- | A platform-specific character used to separate search path strings in
-- environment variables. The separator is a colon (\":\") on Unix and Macintosh,
-- and a semicolon (\";\") on the Windows operating system.
-- | A platform-specific character used to separate search path strings
-- in environment variables. The separator is a colon (\":\") on Unix
-- and Macintosh, and a semicolon (\";\") on the Windows operating system.
searchPathSeparator :: Char
#if mingw32_HOST_OS || mingw32_TARGET_OS
searchPathSeparator = ';'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment