From 3fae22e95b939bc8f05bbd624b8a03ea542fc345 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Apr 2014 23:49:15 -0400 Subject: changed Arch to String type --- Propellor/Property/SiteSpecific/GitAnnexBuilder.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Propellor/Property/SiteSpecific/GitAnnexBuilder.hs') diff --git a/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs b/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs index cf30ba36..8fcfbd6a 100644 --- a/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs +++ b/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs @@ -6,8 +6,6 @@ import qualified Propellor.Property.User as User import qualified Propellor.Property.Cron as Cron import Propellor.Property.Cron (CronTimes) -import Data.Char - builduser :: UserName builduser = "builder" @@ -26,7 +24,7 @@ builder arch crontimes = combineProperties "gitannexbuilder" , check (lacksdir builddir) $ userScriptProperty builduser [ "git clone git://git.kitenet.net/gitannexbuilder " ++ builddir , "cd " ++ builddir - , "git checkout " ++ map toLower (show arch) + , "git checkout " ++ arch ] `describe` "gitbuilder setup" , check (lacksdir $ builddir "build") $ userScriptProperty builduser -- cgit v1.2.3