From 3422b19067f235f864b641099599c7a543edd201 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 7 Mar 2016 17:09:16 -0400 Subject: avoid default fallthrough for System This is so, when a user adds a new OS, ghc tells them everywhere they need to look to add it. Also, avoid throwing error from pure function.. --- src/Propellor/Property/Debootstrap.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Propellor/Property/Debootstrap.hs b/src/Propellor/Property/Debootstrap.hs index 508da5fb..5716be38 100644 --- a/src/Propellor/Property/Debootstrap.hs +++ b/src/Propellor/Property/Debootstrap.hs @@ -92,7 +92,7 @@ built' installprop target system@(System _ arch) config = extractSuite :: System -> Maybe String extractSuite (System (Debian s) _) = Just $ Apt.showSuite s extractSuite (System (Buntish r) _) = Just r -extractSuite _ = error "Not supported unless Debian or Buntish." +extractSuite (System (FreeBSD _) _) = Nothing -- | Ensures debootstrap is installed. -- -- cgit v1.2.3