Mark a few modules as Safe rather than Trustworthy.
authorDavid Terei <code@davidterei.com>
Thu, 13 Nov 2014 01:42:14 +0000 (17:42 -0800)
committerDavid Terei <code@davidterei.com>
Thu, 13 Nov 2014 01:42:14 +0000 (17:42 -0800)
src/Compiler/Hoopl/Dataflow.hs
src/Compiler/Hoopl/Unique.hs
src/Compiler/Hoopl/XUtil.hs

index e496931..23254ca 100644 (file)
@@ -1,10 +1,12 @@
 {-# LANGUAGE CPP, RankNTypes, ScopedTypeVariables, GADTs, TypeFamilies, MultiParamTypeClasses #-}
-#if __GLASGOW_HASKELL__ >= 703
-{- OPTIONS_GHC -fprof-auto #-}
-#endif
-#if __GLASGOW_HASKELL__ >= 701
+#if __GLASGOW_HASKELL__ >= 709
+{-# LANGUAGE Safe #-}
+#elif __GLASGOW_HASKELL__ >= 701
 {-# LANGUAGE Trustworthy #-}
 #endif
+#if __GLASGOW_HASKELL__ >= 703
+{-# OPTIONS_GHC -fprof-auto #-}
+#endif
 #if __GLASGOW_HASKELL__ < 701
 {-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
 #endif
index bf3de75..0e88fb4 100644 (file)
@@ -1,8 +1,11 @@
 {-# LANGUAGE CPP, TypeFamilies #-}
-#if __GLASGOW_HASKELL__ >= 701
+#if __GLASGOW_HASKELL__ >= 709
+{-# LANGUAGE Safe #-}
+#elif __GLASGOW_HASKELL__ >= 701
 {-# LANGUAGE Trustworthy #-}
 #endif
 
+
 module Compiler.Hoopl.Unique
   ( Unique, intToUnique
   , UniqueSet, UniqueMap
index 60551f9..4132113 100644 (file)
@@ -1,5 +1,7 @@
 {-# LANGUAGE CPP, GADTs, RankNTypes, ScopedTypeVariables, TypeFamilies  #-}
-#if __GLASGOW_HASKELL__ >= 701
+#if __GLASGOW_HASKELL__ >= 709
+{-# LANGUAGE Safe #-}
+#elif __GLASGOW_HASKELL__ >= 701
 {-# LANGUAGE Trustworthy #-}
 #endif