[commit: packages/directory] master: Add regression test to verify System.Directory is indeed Safe (600834e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/directory

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/600834e3e05641172192db3d8ced09ac9e791cb3/directory

>---------------------------------------------------------------

commit 600834e3e05641172192db3d8ced09ac9e791cb3
Author: Phil Ruffwind <rf at rufflewind.com>
Date:   Fri Aug 14 17:56:37 2015 -0400

    Add regression test to verify System.Directory is indeed Safe


>---------------------------------------------------------------

600834e3e05641172192db3d8ced09ac9e791cb3
 tests/Main.hs | 2 ++
 tests/Safe.hs | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/tests/Main.hs b/tests/Main.hs
index b5340ff..91f0065 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -15,6 +15,7 @@ import qualified GetHomeDirectory001
 import qualified GetPermissions001
 import qualified RemoveDirectoryRecursive001
 import qualified RenameFile001
+import qualified Safe
 import qualified T8482
 import qualified WithCurrentDirectory
 
@@ -35,5 +36,6 @@ main = T.testMain $ \ _t -> do
   T.isolatedRun _t "GetPermissions001" GetPermissions001.main
   T.isolatedRun _t "RemoveDirectoryRecursive001" RemoveDirectoryRecursive001.main
   T.isolatedRun _t "RenameFile001" RenameFile001.main
+  T.isolatedRun _t "Safe" Safe.main
   T.isolatedRun _t "T8482" T8482.main
   T.isolatedRun _t "WithCurrentDirectory" WithCurrentDirectory.main
diff --git a/tests/Safe.hs b/tests/Safe.hs
new file mode 100644
index 0000000..8f79efc
--- /dev/null
+++ b/tests/Safe.hs
@@ -0,0 +1,7 @@
+-- Verify that System.Directory is indeed Safe (regression test for issue #30)
+{-# LANGUAGE Safe #-}
+module Safe where
+import System.Directory ()
+
+main :: a -> IO ()
+main _ = return ()