diff --git a/Setup.hs b/Setup.hs
index 00db893..2e76de4 100755
--- a/Setup.hs
+++ b/Setup.hs
@@ -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