From c9893ce3909a288320603e486cc1a694fceaf88d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 5 Dec 2017 15:17:20 -0400 Subject: propellor spin --- src/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs b/src/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs index 2d5a244f..e3d21ac1 100644 --- a/src/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs +++ b/src/Propellor/Property/SiteSpecific/GitAnnexBuilder.hs @@ -181,6 +181,8 @@ armAutoBuilder suite arch flavor = -- Works around ghc crash with parallel builds on arm. & (homedir ".cabal" "config") `File.lacksLine` "jobs: $ncpus" + -- Work around https://github.com/systemd/systemd/issues/7135 + & Systemd.containerCfg "--system-call-filter=set_tls" androidAutoBuilderContainer :: Times -> TimeOut -> Systemd.Container androidAutoBuilderContainer crontimes timeout = -- cgit v1.3-2-g0d8e -- cgit v1.3-2-g0d8e From 458760b733cabba09420ceeec03733e4ca9ab5b6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 6 Dec 2017 22:31:32 -0400 Subject: propellor spin --- joeyconfig.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/joeyconfig.hs b/joeyconfig.hs index 00c22ccc..5a3c7f7f 100644 --- a/joeyconfig.hs +++ b/joeyconfig.hs @@ -185,7 +185,7 @@ honeybee = host "honeybee.kitenet.net" $ props & hasPartition ( partition EXT4 `mountedAt` "/" - `addFreeSpace` MegaBytes 500 + `setSize` MegaBytes 8000 ) & Apt.installed ["firmware-brcm80211"] -- cgit v1.3-2-g0d8e From 889cbdbb10859c03c0d9c2a784ab01cfbb224dae Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 6 Dec 2017 22:34:21 -0400 Subject: avoid redundant "has has" --- src/Propellor/Property/DiskImage/PartSpec.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Propellor/Property/DiskImage/PartSpec.hs b/src/Propellor/Property/DiskImage/PartSpec.hs index 6a03c857..942cfa3e 100644 --- a/src/Propellor/Property/DiskImage/PartSpec.hs +++ b/src/Propellor/Property/DiskImage/PartSpec.hs @@ -160,8 +160,8 @@ hasPartition p@(mmp, _, _, _) = pureInfoProperty desc (PartInfo [PartSpecInfo p]) where desc = case mmp of - Just mp -> "has " ++ mp ++ " partition" - Nothing -> "has unmounted partition" + Just mp -> mp ++ " partition" + Nothing -> "unmounted partition" -- | Adjusts the PartSpec for the partition mounted at the specified location. -- @@ -170,7 +170,7 @@ hasPartition p@(mmp, _, _, _) = pureInfoProperty desc -- > & adjustPartition "/boot" (`addFreeSpace` MegaBytes 150) adjustPartition :: MountPoint -> (PartSpec PartLocation -> PartSpec PartLocation) -> Property (HasInfo + UnixLike) adjustPartition mp f = pureInfoProperty - ("has " ++ mp ++ " adjusted") + (mp ++ " adjusted") (PartInfo [AdjustPartSpecInfo mp f]) -- | Indicates partition layout in a disk. Default is somewhere in the -- cgit v1.3-2-g0d8e