[Added isBottomIO and isBottomTimeOutIO.
Nils Anders Danielsson <nils.anders.danielsson@gmail.com>**20160630162024
 Ignore-this: ebf5375aa3f0e1d6f5573dc83a4fd11d
 
 David Feuer suggested that I should include isBottomIO.
] {
hunk ./Test/ChasingBottoms/IsBottom.hs 18
+  , isBottomIO
hunk ./Test/ChasingBottoms/IsBottom.hs 22
+  , isBottomTimeOutIO
hunk ./Test/ChasingBottoms/IsBottom.hs 102
-isBottomTimeOut timeOutLimit f = unsafePerformIO $
+isBottomTimeOut timeOutLimit f =
+  unsafePerformIO $ isBottomTimeOutIO timeOutLimit f
+
+-- | A variant of 'isBottom' that lives in the 'IO' monad.
+
+isBottomIO :: a -> IO Bool
+isBottomIO = isBottomTimeOutIO Nothing
+
+-- | A variant of 'isBottomTimeOut' that lives in the 'IO' monad.
+
+isBottomTimeOutIO :: Maybe Int -> a -> IO Bool
+isBottomTimeOutIO timeOutLimit f =
}