Remove dependency on Safe from Setup.hs

This commit is contained in:
Daniel Gröber 2016-01-19 20:57:05 +01:00
parent 345bd92d21
commit d77e262915

View File

@ -8,7 +8,6 @@ import Distribution.Simple.InstallDirs as ID
import Distribution.Simple.LocalBuildInfo
import Distribution.PackageDescription
import Safe
import Control.Arrow
import Control.Applicative
import Control.Monad
@ -142,6 +141,10 @@ parseVer str =
[(ver, _)] -> ver
_ -> error $ "No parse (Ver) :(\n" ++ str ++ "\n"
fromJustNote :: String -> Maybe a -> a
fromJustNote _ (Just x) = x
fromJustNote note Nothing = error $ "fromJustNote ("++note++"): "
-- sanityCheckCabalVersions args cf desc lbi = do
-- (cabalInstallVer, cabalVer) <- getCabalExecVer