summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Debootstrap.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-07 17:09:16 -0400
committerJoey Hess2016-03-07 17:09:16 -0400
commit3422b19067f235f864b641099599c7a543edd201 (patch)
tree7c6bf2f8be23290cef398c5b3052500ef539e6f4 /src/Propellor/Property/Debootstrap.hs
parent4a7b19ea49923de05aca639816d27dc184cdb25a (diff)
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..
Diffstat (limited to 'src/Propellor/Property/Debootstrap.hs')
-rw-r--r--src/Propellor/Property/Debootstrap.hs2
1 files changed, 1 insertions, 1 deletions
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.
--