diff options
author | alexwl <alexey.a.kiryushin@gmail.com> | 2019-05-17 18:43:42 +0300 |
---|---|---|
committer | alexwl <alexey.a.kiryushin@gmail.com> | 2019-05-17 18:43:42 +0300 |
commit | 31267d352e329875e647fa422d68b08106a36cf2 (patch) | |
tree | 065465d1b252bf688b91828f26c8be52899decd8 /src/HaskellCodeExplorer/AST/TypecheckedSource.hs | |
parent | fabedd76f04b630b29fdbd680aa56a383441e046 (diff) |
Code cleanup: fix warnings
Diffstat (limited to 'src/HaskellCodeExplorer/AST/TypecheckedSource.hs')
-rw-r--r-- | src/HaskellCodeExplorer/AST/TypecheckedSource.hs | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/HaskellCodeExplorer/AST/TypecheckedSource.hs b/src/HaskellCodeExplorer/AST/TypecheckedSource.hs index 02f406b..50ab061 100644 --- a/src/HaskellCodeExplorer/AST/TypecheckedSource.hs +++ b/src/HaskellCodeExplorer/AST/TypecheckedSource.hs @@ -20,7 +20,11 @@ module HaskellCodeExplorer.AST.TypecheckedSource import Bag (bagToList) import BasicTypes (Origin(..)) import Class (Class, classTyVars) -import ConLike (ConLike(..),conLikeWrapId_maybe) +import ConLike (ConLike(..) +#if MIN_VERSION_GLASGOW_HASKELL(8,2,2,0) + , conLikeWrapId_maybe +#endif + ) import Control.Monad (return, unless, void) import Control.Monad.State.Strict (State, get, modify') import qualified Data.HashMap.Strict as HM @@ -35,7 +39,12 @@ import DynFlags (DynFlags) import FastString (mkFastString) import HaskellCodeExplorer.GhcUtils import qualified HaskellCodeExplorer.Types as HCE -import HsBinds (HsPatSynDetails(..), RecordPatSynField(..)) +import HsBinds (RecordPatSynField(..) +#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0) +#else + , HsPatSynDetails (..) +#endif + ) import HsSyn ( ABExport(..) , ApplicativeArg(..) @@ -175,7 +184,7 @@ data Environment = Environment -- | Indicates whether an expression consists of more than one token. -- Simple expression : wildcard, literal --- Composite expressin : applcation, lambda abstraction,... +-- Composite expression : application, lambda abstraction,... data ExprSort = Simple | Composite |