diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-07 17:09:16 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-07 17:09:16 -0400 |
| commit | 3422b19067f235f864b641099599c7a543edd201 (patch) | |
| tree | 7c6bf2f8be23290cef398c5b3052500ef539e6f4 | |
| parent | 4a7b19ea49923de05aca639816d27dc184cdb25a (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..
| -rw-r--r-- | src/Propellor/Property/Debootstrap.hs | 2 |
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. -- |