github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Patrick Thomson 2018-06-08 17:05:04 -04:00
parent e59708dfd6
commit 84b8b5ceb7
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/IO.hs
View File

@ -36,7 +36,6 @@ module Semantic.IO
import qualified Control.Exception as Exc
import Control.Monad.Effect
import Control.Monad.Effect.Reader
import Control.Monad.Effect.State
import Control.Monad.Effect.Exception
import Control.Monad.IO.Class
@ -60,7 +59,6 @@ import System.FilePath
import System.FilePath.Glob
import qualified System.IO as IO
import Text.Read hiding (get)
import Debug.Trace (trace)
-- | Read a utf8-encoded file to a 'Blob'.
readFile :: forall m. MonadIO m => File -> m (Maybe Blob.Blob)
@ -274,7 +272,7 @@ runFiles = interpret $ \ files -> case files of
Write (ToPath path) builder -> liftIO (IO.withBinaryFile path IO.WriteMode (`B.hPutBuilder` builder))
Write (ToHandle (WriteHandle handle)) builder -> liftIO (B.hPutBuilder handle builder)
runFilesGuided :: (Member (State Project.Concrete) effs, Member (Exc SomeException) effs, Member IO effs) => Eff (Files ': effs) a -> Eff effs a
runFilesGuided :: (Member (State Project.Concrete) effs, Member (Exc SomeException) effs) => Eff (Files ': effs) a -> Eff effs a
runFilesGuided = interpret $ \files -> case files of
Read (FromHandle _) -> throwError (SomeException HandleNotSupported)
Read (FromPairHandle _) -> throwError (SomeException HandleNotSupported)

2
src/Semantic/Util.hs
View File

@ -1,5 +1,5 @@
{-# LANGUAGE GeneralizedNewtypeDeriving, TypeFamilies, TypeOperators #-}
{-# OPTIONS_GHC -Wno-missing-signatures #-}
{-# OPTIONS_GHC -Wno-missing-signatures -Wno-unused-imports #-}
module Semantic.Util where
import Analysis.Abstract.Caching