summaryrefslogtreecommitdiff
path: root/src/wrapper.hs
diff options
context:
space:
mode:
authorJoey Hess2014-08-19 14:33:43 -0400
committerJoey Hess2014-08-19 14:35:38 -0400
commitb6c5f547419ce95d20453f30403e1a5860720fe6 (patch)
tree3bbeb636ca5c5e4805881f8a96a7e127d16ec575 /src/wrapper.hs
parentc3c1f921bb96f4ae86564f28f53392f2c08e4007 (diff)
The Debian package now includes a single-revision git repository in /usr/src/propellor/, and ~/.propellor/ is set up to use this repository as its "upstream" remote. This avoids relying on the security of the github repository when using the Debian package.
Diffstat (limited to 'src/wrapper.hs')
-rw-r--r--src/wrapper.hs34
1 files changed, 15 insertions, 19 deletions
diff --git a/src/wrapper.hs b/src/wrapper.hs
index 4d2c50fc..694067df 100644
--- a/src/wrapper.hs
+++ b/src/wrapper.hs
@@ -9,8 +9,8 @@
-- uses it to build the real propellor program (if not already built),
-- and runs it.
--
--- The source is either copied from /usr/src/propellor, or is cloned from
--- git over the network.
+-- The source is cloned from /usr/src/propellor when available,
+-- or is cloned from git over the network.
module Main where
@@ -28,13 +28,13 @@ import System.Environment (getArgs)
import System.Exit
import System.Posix.Directory
-srcdir :: FilePath
-srcdir = "/usr/src/propellor"
+localrepo :: FilePath
+localrepo = "/usr/src/propellor"
-- Using the github mirror of the main propellor repo because
-- it is accessible over https for better security.
-srcrepo :: String
-srcrepo = "https://github.com/joeyh/propellor.git"
+netrepo :: String
+netrepo = "https://github.com/joeyh/propellor.git"
main :: IO ()
main = do
@@ -56,29 +56,25 @@ wrapper args propellordir propellorbin = do
makeRepo = do
putStrLn $ "Setting up your propellor repo in " ++ propellordir
putStrLn ""
- ifM (doesDirectoryExist srcdir)
+ ifM (doesDirectoryExist localrepo)
( do
- void $ boolSystem "cp" [Param "-a", File srcdir, File propellordir]
- changeWorkingDirectory propellordir
- void $ boolSystem "git" [Param "init"]
- void $ boolSystem "git" [Param "add", Param "."]
- setuprepo True
+ void $ boolSystem "git" [Param "clone", File localrepo, File propellordir]
+ setuprepo True localrepo
, do
- void $ boolSystem "git" [Param "clone", Param srcrepo, File propellordir]
- void $ boolSystem "git" [Param "remote", Param "rm", Param "origin"]
- setuprepo False
+ void $ boolSystem "git" [Param "clone", Param netrepo, File propellordir]
+ setuprepo False netrepo
)
- setuprepo fromsrcdir = do
+ setuprepo fromlocalrepo repolocation = do
changeWorkingDirectory propellordir
whenM (doesDirectoryExist "privdata") $
mapM_ nukeFile =<< dirContents "privdata"
- void $ boolSystem "git" [Param "commit", Param "--allow-empty", Param "--quiet", Param "-m", Param "setting up propellor git repository"]
- void $ boolSystem "git" [Param "remote", Param "add", Param "upstream", Param srcrepo]
+ void $ boolSystem "git" [Param "remote", Param "rm", Param "origin"]
+ void $ boolSystem "git" [Param "remote", Param "add", Param "upstream", Param repolocation]
-- Connect synthetic git repo with upstream history so
-- merging with upstream will work going forward.
-- Note -s ours is used to avoid getting any divergent
-- changes from upstream.
- when fromsrcdir $ do
+ when (not fromlocalrepo) $ do
void $ boolSystem "git" [Param "fetch", Param "upstream"]
version <- readProcess "dpkg-query" ["--showformat", "${Version}", "--show", "propellor"]
void $ boolSystem "git" [Param "merge", Param "-s", Param "ours", Param version]