diff options
| author | Zihao Wang <dev@wzhd.org> | 2017-02-03 18:27:40 +0800 |
|---|---|---|
| committer | Zihao Wang <dev@wzhd.org> | 2017-02-04 09:04:56 +0800 |
| commit | 93e93de20f29521c399a19bfeec1b359c1dadae9 (patch) | |
| tree | 1a94f6335681d24c9f51c02b543e3f65320bfa24 /src | |
| parent | f95e4fc7dccb9691b8185166c44f83ce884463dc (diff) | |
make pattern-matching exhaustive
Signed-off-by: Zihao Wang <dev@wzhd.org>
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Debootstrap.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Propellor/Property/Debootstrap.hs b/src/Propellor/Property/Debootstrap.hs index db114e01..e21bcdff 100644 --- a/src/Propellor/Property/Debootstrap.hs +++ b/src/Propellor/Property/Debootstrap.hs @@ -96,6 +96,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 (System (ArchLinux) _) = Nothing extractSuite (System (FreeBSD _) _) = Nothing -- | Ensures debootstrap is installed. |