@@ -173,7 +173,6 @@ import Streamly.Prelude (SerialT)
173173import Streamly.Internal.Data.Parser (Parser)
174174import Streamly.Internal.Data.Array.Storable.Foreign.Types (Array(..))
175175import System.IO (Handle, hClose, IOMode(ReadMode))
176−import System.IO.Unsafe (unsafePerformIO)
177176#if !MIN_VERSION_base(4,10,0)
178177import Control.Concurrent.MVar (readMVar)
179178import Data.Typeable (cast)
@@ -958,13 +957,7 @@ getRelPath Event{..} = eventRelPath
958957-- /Internal/
959958--
960959getAbsPath :: Event -> Array Word8
961−getAbsPath ev0 = go ev0
962−
963− where
964−
965− go ev = unsafePerformIO
966− $ A.fromStream
967− $ (A.toStream (getRoot ev) <> A.toStream (getRelPath ev))
960+getAbsPath ev = getRoot ev <> getRelPath ev
968961
969962-- XXX should we use a Maybe?
970963-- | Cookie is set when a rename occurs. The cookie value can be used to