clean-up: m

M  src/Nix/Effects.hs
This commit is contained in:
Anton-Latukha 2020-09-18 17:23:56 +03:00
parent 3774516033
commit b035e373d6
No known key found for this signature in database
GPG Key ID: 3D84C07E91802E41
1 changed files with 2 additions and 2 deletions

View File

@ -163,7 +163,7 @@ instance MonadEnv IO where
getCurrentSystemOS = pure $ T.pack System.Info.os
-- Invert the conversion done by GHC_CONVERT_CPU in GHC's aclocal.m4
-- Invert the conversion done by GHC_CONVERT_CPU in GHC's aclocal.m4
getCurrentSystemArch = pure $ T.pack $ case System.Info.arch of
"i386" -> "i686"
arch -> arch
@ -247,7 +247,7 @@ instance MonadStore IO where
$ "addPath: failed: nix-store --add "
++ show path
--TODO: Use a temp directory so we don't overwrite anything important
--TODO: Use a temp directory so we don't overwrite anything important
toFile_' filepath content = do
writeFile filepath content
storepath <- addPath' filepath