Move versionToInt to Settings/Builders/Haddock
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Tue, 17 May 2016 22:41:55 +0000 (23:41 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Tue, 17 May 2016 22:41:55 +0000 (23:41 +0100)
src/Base.hs
src/Settings/Builders/Haddock.hs

index 328eb98..8f02865 100644 (file)
@@ -19,7 +19,7 @@ module Base (
 
     -- * Miscellaneous utilities
     minusOrd, intersectOrd, lookupAll, replaceEq, quote, replaceSeparators,
 
     -- * Miscellaneous utilities
     minusOrd, intersectOrd, lookupAll, replaceEq, quote, replaceSeparators,
-    unifyPath, (-/-), versionToInt, matchVersionedFilePath, putColoured
+    unifyPath, (-/-), matchVersionedFilePath, putColoured
     ) where
 
 import Control.Applicative
     ) where
 
 import Control.Applicative
@@ -74,12 +74,6 @@ replaceWhen p to = map (\from -> if p from then to else from)
 quote :: String -> String
 quote s = "\"" ++ s ++ "\""
 
 quote :: String -> String
 quote s = "\"" ++ s ++ "\""
 
--- | Given a version string such as "2.16.2" produce an integer equivalent.
-versionToInt :: String -> Int
-versionToInt s = major * 1000 + minor * 10 + patch
-  where
-    [major, minor, patch] = map read . words $ replaceEq '.' ' ' s
-
 -- | Normalise a path and convert all path separators to @/@, even on Windows.
 unifyPath :: FilePath -> FilePath
 unifyPath = toStandard . normaliseEx
 -- | Normalise a path and convert all path separators to @/@, even on Windows.
 unifyPath :: FilePath -> FilePath
 unifyPath = toStandard . normaliseEx
index 37964b4..4c0b6f7 100644 (file)
@@ -8,6 +8,12 @@ import Predicate
 import Settings
 import Settings.Builders.Ghc
 
 import Settings
 import Settings.Builders.Ghc
 
+-- | Given a version string such as "2.16.2" produce an integer equivalent.
+versionToInt :: String -> Int
+versionToInt s = major * 1000 + minor * 10 + patch
+  where
+    [major, minor, patch] = map read . words $ replaceEq '.' ' ' s
+
 haddockBuilderArgs :: Args
 haddockBuilderArgs = builder Haddock ? do
     output   <- getOutput
 haddockBuilderArgs :: Args
 haddockBuilderArgs = builder Haddock ? do
     output   <- getOutput