From a93ad8d097e73afccaf0e7c30fc98e1c07fa14c8 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Sun, 30 Jun 2019 11:26:09 -0400
Subject: remove unused code

---
 acme-certify.hs | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/acme-certify.hs b/acme-certify.hs
index bf0569a..28b33f2 100644
--- a/acme-certify.hs
+++ b/acme-certify.hs
@@ -1,7 +1,5 @@
-{-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# LANGUAGE DuplicateRecordFields #-}
 {-# LANGUAGE FlexibleContexts      #-}
-{-# LANGUAGE FlexibleInstances     #-}
 {-# LANGUAGE MultiWayIf            #-}
 {-# LANGUAGE NamedFieldPuns        #-}
 {-# LANGUAGE NoImplicitPrelude     #-}
@@ -9,7 +7,6 @@
 {-# LANGUAGE PackageImports        #-}
 {-# LANGUAGE RecordWildCards       #-}
 {-# LANGUAGE ScopedTypeVariables   #-}
-{-# LANGUAGE TypeSynonymInstances  #-}
 {-# LANGUAGE ViewPatterns          #-}
 
 --------------------------------------------------------------------------------
@@ -221,17 +218,12 @@ certifyOpts = fmap Certify $
                                                          , "making ACME requests"
                                                          ]))
 
-instance Show HttpProvisioner where
-    show _ = "<code>"
-instance Show Keys where
-    show _ = "<keys>"
-
 data CertSpec = CertSpec {
       csDomains        :: [(DomainName, HttpProvisioner)],
       csSkipDH         :: Bool,
       csCertificateDir :: FilePath,
       csUserKeys       :: Keys
-} deriving Show
+}
 
 certAltNames :: X509.SignedExact X509.Certificate -> [String]
 certAltNames sc = toListOf (_Just . _Right . to strip1 . folded) altNames & mapMaybe strip2
-- 
cgit v1.2.3