diff options
author | James Crayne <jim.crayne@gmail.com> | 2017-09-23 03:37:29 +0000 |
---|---|---|
committer | James Crayne <jim.crayne@gmail.com> | 2017-09-23 03:38:24 +0000 |
commit | 210b728fea751b7963323578a727eb173149c8d0 (patch) | |
tree | 3b57bdc5854d2cade31212b094faa7a726fc2939 /src/Network/Tox | |
parent | 84207ee6d28a44bb6eaaa6efe0cd3ffd88affcd0 (diff) |
fix build on ghc-7.10.3
Diffstat (limited to 'src/Network/Tox')
-rw-r--r-- | src/Network/Tox/NodeId.hs | 4 | ||||
-rw-r--r-- | src/Network/Tox/Onion/Transport.hs | 4 |
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 -} |
17 | module Network.Tox.NodeId | 17 | module 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 #-} |
18 | module Network.Tox.Onion.Transport | 18 | module Network.Tox.Onion.Transport |
@@ -209,7 +209,7 @@ instance LessThanThree N0 | |||
209 | instance LessThanThree N1 | 209 | instance LessThanThree N1 |
210 | instance LessThanThree N2 | 210 | instance LessThanThree N2 |
211 | 211 | ||
212 | type family ThreeMinus n = r | r -> n where | 212 | type 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 |