From 210b728fea751b7963323578a727eb173149c8d0 Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Sat, 23 Sep 2017 03:37:29 +0000
Subject: fix build on ghc-7.10.3

---
 src/Network/Tox/NodeId.hs          | 4 ++--
 src/Network/Tox/Onion/Transport.hs | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Network')

diff --git a/src/Network/Tox/NodeId.hs b/src/Network/Tox/NodeId.hs
index d9d7cfbc..959d689c 100644
--- a/src/Network/Tox/NodeId.hs
+++ b/src/Network/Tox/NodeId.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE ApplicativeDo              #-}
+{- LANGUAGE ApplicativeDo              -}
 {-# LANGUAGE BangPatterns               #-}
 {-# LANGUAGE CPP                        #-}
 {-# LANGUAGE DataKinds                  #-}
@@ -13,7 +13,7 @@
 {-# LANGUAGE PatternSynonyms            #-}
 {-# LANGUAGE ScopedTypeVariables        #-}
 {-# LANGUAGE TupleSections              #-}
-{-# LANGUAGE TypeApplications           #-}
+{- LANGUAGE TypeApplications           -}
 module Network.Tox.NodeId
     ( NodeInfo(..)
     , NodeId
diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs
index a521c39e..2b4df5af 100644
--- a/src/Network/Tox/Onion/Transport.hs
+++ b/src/Network/Tox/Onion/Transport.hs
@@ -12,7 +12,7 @@
 {-# LANGUAGE StandaloneDeriving         #-}
 {-# LANGUAGE TupleSections              #-}
 {-# LANGUAGE TypeFamilies               #-}
-{-# LANGUAGE TypeFamilyDependencies     #-}
+{- LANGUAGE TypeFamilyDependencies     -}
 {-# LANGUAGE TypeOperators              #-}
 {-# LANGUAGE UndecidableInstances       #-}
 module Network.Tox.Onion.Transport
@@ -209,7 +209,7 @@ instance LessThanThree N0
 instance LessThanThree N1
 instance LessThanThree N2
 
-type family ThreeMinus n = r | r -> n where
+type family ThreeMinus n where
     ThreeMinus N3 = N0
     ThreeMinus N2 = N1
     ThreeMinus N1 = N2
-- 
cgit v1.2.3