on master help sign in
Fix tests for different GHC versions
be0878cCatherine Galkina
servant-docs/test/Servant/DocsSpec.hs+15−9
@@ -1,13 +1,19 @@
1−{-# LANGUAGE DataKinds #-}
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveGeneric #-}
3+{-# LANGUAGE DeriveGeneric #-}
3−{-# LANGUAGE FlexibleContexts #-}
4+{-# LANGUAGE FlexibleContexts #-}
4−{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE MultiParamTypeClasses #-}
6+{-# LANGUAGE MultiParamTypeClasses #-}
6−{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE TypeOperators #-}
8+{-# LANGUAGE TypeOperators #-}
8−{-# LANGUAGE TypeSynonymInstances #-}
9+{-# LANGUAGE TypeSynonymInstances #-}
9−{-# OPTIONS_GHC -fno-warn-orphans #-}
10+{-# OPTIONS_GHC -fno-warn-orphans #-}
11+#if __GLASGOW_HASKELL__ >= 800
12+{-# OPTIONS_GHC -freduction-depth=100 #-}
13+#else
10{-# OPTIONS_GHC -fcontext-stack=100 #-}
14{-# OPTIONS_GHC -fcontext-stack=100 #-}
15+#endif
16+
11module Servant.DocsSpec where
17module Servant.DocsSpec where
12
18
13import Control.Lens
19import Control.Lens
servant-server/test/Servant/ServerSpec.hs+4
@@ -10,7 +10,11 @@
10{-# LANGUAGE TypeFamilies #-}
10{-# LANGUAGE TypeFamilies #-}
11{-# LANGUAGE TypeOperators #-}
11{-# LANGUAGE TypeOperators #-}
12{-# LANGUAGE TypeSynonymInstances #-}
12{-# LANGUAGE TypeSynonymInstances #-}
13+#if __GLASGOW_HASKELL__ >= 800
14+{-# OPTIONS_GHC -freduction-depth=100 #-}
15+#else
13{-# OPTIONS_GHC -fcontext-stack=100 #-}
16{-# OPTIONS_GHC -fcontext-stack=100 #-}
17+#endif
14
18
15module Servant.ServerSpec where
19module Servant.ServerSpec where
16
20