summaryrefslogtreecommitdiff
path: root/src/Network
diff options
context:
space:
mode:
authorJames Crayne <jim.crayne@gmail.com>2017-09-23 03:37:29 +0000
committerJames Crayne <jim.crayne@gmail.com>2017-09-23 03:38:24 +0000
commit210b728fea751b7963323578a727eb173149c8d0 (patch)
tree3b57bdc5854d2cade31212b094faa7a726fc2939 /src/Network
parent84207ee6d28a44bb6eaaa6efe0cd3ffd88affcd0 (diff)
fix build on ghc-7.10.3
Diffstat (limited to 'src/Network')
-rw-r--r--src/Network/Tox/NodeId.hs4
-rw-r--r--src/Network/Tox/Onion/Transport.hs4
2 files changed, 4 insertions, 4 deletions
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 @@
1{-# LANGUAGE ApplicativeDo #-} 1{- LANGUAGE ApplicativeDo -}
2{-# LANGUAGE BangPatterns #-} 2{-# LANGUAGE BangPatterns #-}
3{-# LANGUAGE CPP #-} 3{-# LANGUAGE CPP #-}
4{-# LANGUAGE DataKinds #-} 4{-# LANGUAGE DataKinds #-}
@@ -13,7 +13,7 @@
13{-# LANGUAGE PatternSynonyms #-} 13{-# LANGUAGE PatternSynonyms #-}
14{-# LANGUAGE ScopedTypeVariables #-} 14{-# LANGUAGE ScopedTypeVariables #-}
15{-# LANGUAGE TupleSections #-} 15{-# LANGUAGE TupleSections #-}
16{-# LANGUAGE TypeApplications #-} 16{- LANGUAGE TypeApplications -}
17module Network.Tox.NodeId 17module Network.Tox.NodeId
18 ( NodeInfo(..) 18 ( NodeInfo(..)
19 , NodeId 19 , 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 @@
12{-# LANGUAGE StandaloneDeriving #-} 12{-# LANGUAGE StandaloneDeriving #-}
13{-# LANGUAGE TupleSections #-} 13{-# LANGUAGE TupleSections #-}
14{-# LANGUAGE TypeFamilies #-} 14{-# LANGUAGE TypeFamilies #-}
15{-# LANGUAGE TypeFamilyDependencies #-} 15{- LANGUAGE TypeFamilyDependencies -}
16{-# LANGUAGE TypeOperators #-} 16{-# LANGUAGE TypeOperators #-}
17{-# LANGUAGE UndecidableInstances #-} 17{-# LANGUAGE UndecidableInstances #-}
18module Network.Tox.Onion.Transport 18module Network.Tox.Onion.Transport
@@ -209,7 +209,7 @@ instance LessThanThree N0
209instance LessThanThree N1 209instance LessThanThree N1
210instance LessThanThree N2 210instance LessThanThree N2
211 211
212type family ThreeMinus n = r | r -> n where 212type family ThreeMinus n where
213 ThreeMinus N3 = N0 213 ThreeMinus N3 = N0
214 ThreeMinus N2 = N1 214 ThreeMinus N2 = N1
215 ThreeMinus N1 = N2 215 ThreeMinus N1 = N2