picnoir/hnix
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Importing Control.Monad.ST.Unsafe was not needed in Lint.hs

Browse source
This commit is contained in:
John Wiegley 2018-05-01 20:34:48 -04:00
parent acda2b3337
commit 18063e5acd
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Nix/Lint.hs
View file

@ -29,7 +29,6 @@ import Control.Monad.Catch
import Control.Monad.Fix
import Control.Monad.Reader (MonadReader)
import Control.Monad.ST
import Control.Monad.ST.Unsafe
import Control.Monad.Trans.Reader
-- import qualified Data.ByteString as BS
import Data.Coerce
@ -401,7 +400,7 @@ instance MonadVar (Lint s) where
-- readFile x = Lint $ ReaderT $ \_ -> unsafeIOToST $ BS.readFile x
instance MonadThrow (Lint s) where
throwM e = Lint $ ReaderT $ \_ -> unsafeIOToST $ throw e
throwM e = Lint $ ReaderT $ \_ -> throw e
runLintM :: Options -> Lint s a -> ST s a
runLintM opts = flip runReaderT (newContext opts) . runLint