github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-30 14:47:30 +03:00
Code Issues Projects Releases Wiki Activity

Extra imports.

Browse Source
This commit is contained in:
Patrick Thomson 2019-12-13 15:10:25 -05:00
parent 2d4268ea08
commit cd011cdd70
3 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Abstract/Address/Precise.hs
View File

@ -4,7 +4,6 @@ module Data.Abstract.Address.Precise
) where ) where
import Control.Abstract import Control.Abstract
import Control.Abstract.ScopeGraph (AllocatorC (..))
import Control.Algebra import Control.Algebra
import qualified Data.Set as Set import qualified Data.Set as Set
import Prologue import Prologue

6
src/Semantic/Task.hs
View File

@ -1,4 +1,6 @@
{-# LANGUAGE FlexibleContexts, FlexibleInstances, GADTs, GeneralizedNewtypeDeriving, KindSignatures, MultiParamTypeClasses, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TypeOperators, UndecidableInstances #-} {-# LANGUAGE FlexibleContexts, FlexibleInstances, GADTs, GeneralizedNewtypeDeriving, KindSignatures,
MultiParamTypeClasses, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TypeOperators,
UndecidableInstances #-}
{-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS_GHC -fno-warn-orphans #-}
module Semantic.Task module Semantic.Task
( TaskC ( TaskC
@ -84,8 +86,6 @@ serialize format input = do
formatStyle <- asks (Flag.choose IsTerminal Plain Colourful . configIsTerminal) formatStyle <- asks (Flag.choose IsTerminal Plain Colourful . configIsTerminal)
pure (runSerialize formatStyle format input) pure (runSerialize formatStyle format input)
deriving instance MonadFail m => MonadFail (CatchC m)
data TaskSession data TaskSession
= TaskSession = TaskSession
{ config :: Config { config :: Config

3
src/Semantic/Util.hs
View File

@ -12,8 +12,6 @@ module Semantic.Util
import Prelude hiding (readFile) import Prelude hiding (readFile)
import Control.Abstract import Control.Abstract
import Control.Abstract.Heap (runHeapError)
import Control.Abstract.ScopeGraph (runScopeError)
import Control.Carrier.Fresh.Strict import Control.Carrier.Fresh.Strict
import Control.Carrier.Parse.Simple import Control.Carrier.Parse.Simple
import Control.Carrier.Lift import Control.Carrier.Lift
@ -21,7 +19,6 @@ import Control.Carrier.Trace.Printing
import Control.Carrier.Reader import Control.Carrier.Reader
import Control.Carrier.Resumable.Either (SomeError (..)) import Control.Carrier.Resumable.Either (SomeError (..))
import Control.Carrier.State.Strict import Control.Carrier.State.Strict
import Control.Exception (displayException)
import Control.Lens.Getter import Control.Lens.Getter
import Data.Abstract.Address.Precise as Precise import Data.Abstract.Address.Precise as Precise
import Data.Abstract.Evaluatable import Data.Abstract.Evaluatable