@@ -6,6 +6,10 @@
6{-# LANGUAGE FlexibleInstances #-}
6{-# LANGUAGE FlexibleInstances #-}
7{-# LANGUAGE TypeSynonymInstances #-}
7{-# LANGUAGE TypeSynonymInstances #-}
8{-# LANGUAGE ScopedTypeVariables #-}
8{-# LANGUAGE ScopedTypeVariables #-}
10+#if __GLASGOW_HASKELL__ < 710
11+{-# LANGUAGE OverlappingInstances #-}
10module Servant.ForeignSpec where
14module Servant.ForeignSpec where
@@ -39,7 +43,7 @@ instance HasForeignType LangX Bool where
39 typeFor _ _ = "boolX"
43 typeFor _ _ = "boolX"
40instance {-# Overlapping #-} HasForeignType LangX String where
44instance {-# Overlapping #-} HasForeignType LangX String where
41 typeFor _ _ = "stringX"
45 typeFor _ _ = "stringX"
42−instance {-# Overlapable #-} HasForeignType LangX a => HasForeignType LangX [a] where
46+instance {-# Overlappable #-} HasForeignType LangX a => HasForeignType LangX [a] where
43 typeFor lang _ = "listX of " <> typeFor lang (Proxy :: Proxy a)
47 typeFor lang _ = "listX of " <> typeFor lang (Proxy :: Proxy a)
45type TestApi
49type TestApi