Skip to content

Commit 45b29b4

Browse files
committed
hls-graph: Internal.Types: mk 8.6.5 code as such
1 parent ca30ee9 commit 45b29b4

File tree

1 file changed

+3
-0
lines changed
  • hls-graph/src/Development/IDE/Graph/Internal

1 file changed

+3
-0
lines changed

hls-graph/src/Development/IDE/Graph/Internal/Types.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -8,13 +8,16 @@
88
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
99
{-# LANGUAGE RecordWildCards #-}
1010
{-# LANGUAGE ScopedTypeVariables #-}
11+
{-# LANGUAGE CPP #-}
1112

1213
module Development.IDE.Graph.Internal.Types where
1314

1415
import Control.Applicative
1516
import Control.Monad.Catch
17+
#if __GLASGOW_HASKELL__ < 870
1618
-- Needed in GHC 8.6.5
1719
import Control.Concurrent.STM.Stats (TVar, atomically)
20+
#endif
1821
import Control.Monad.Fail
1922
import Control.Monad.IO.Class
2023
import Control.Monad.Trans.Reader

0 commit comments

Comments
 (0)