X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghc-pkg%2FMain.hs;h=02d0a0df74f038d8dabd17609c7a7d6552fc4d34;hb=4e7bbe99d475acc47fed45124bf748f3e258a702;hp=bb836f08cb679afc730dbf5976901d58c65ac107;hpb=7e25751e8ba0704e23fcf6fff1c23af3ac5af696;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