X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghc-pkg%2FMain.hs;h=02d0a0df74f038d8dabd17609c7a7d6552fc4d34;hb=e142d5fc0c18903f2aa4b7f99fe2c8cc6d752740;hp=bb836f08cb679afc730dbf5976901d58c65ac107;hpb=daf5b615e497ab2fc9457c86f2c5c4cb00a14213;p=ghc-hetmet.git diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index bb836f0..02d0a0d 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -1698,4 +1698,4 @@ readUTF8File file = do removeFileSafe :: FilePath -> IO () removeFileSafe fn = removeFile fn `catch` \ e -> - when (not $ isDoesNotExistError e) $ ioError e \ No newline at end of file + when (not $ isDoesNotExistError e) $ ioError e