hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove dependency on Safe from Setup.hs

Browse Source
This commit is contained in:
Daniel Gröber 2016-01-19 20:57:05 +01:00
parent 345bd92d21
commit d77e262915
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Setup.hs
View File

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