Forward port to GHC 8.10.1-alpha2 (83edba07e4)

1 files changed, 5 insertions, 0 deletions

diff --git a/dht/examples/dht.hs b/dht/examples/dht.hs
index 3e1b1656..6615477b 100644
--- a/dht/examples/dht.hs
+++ b/dht/examples/dht.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP                      #-}
 {-# LANGUAGE NondecreasingIndentation #-}
 import Control.Applicative
 import Control.Monad
@@ -13,6 +14,10 @@ import System.IO
 import System.IO.Unsafe
 import qualified Data.ByteString as B
 
+#if MIN_VERSION_haskeline(0,8,0)
+import Control.Exception (handle)
+#endif
+
 -- | Reads one character.  If it is not a digit,
 -- then it is discarded and 'Nothing' is returned.
 hReadDigit :: Handle -> IO (Maybe Char)