git.iko.soy/streamly
on master help sign in
Address review comments
4d1e39dRanjeet Kumar Ranjan
src/Streamly/Internal/FileSystem/Event/Linux.hs+1−8
compare with master
unifiedsplit
@@ -173,7 +173,6 @@ import Streamly.Prelude (SerialT)
173import Streamly.Internal.Data.Parser (Parser)
173import Streamly.Internal.Data.Parser (Parser)
174import Streamly.Internal.Data.Array.Storable.Foreign.Types (Array(..))
174import Streamly.Internal.Data.Array.Storable.Foreign.Types (Array(..))
175import System.IO (Handle, hClose, IOMode(ReadMode))
175import System.IO (Handle, hClose, IOMode(ReadMode))
176−import System.IO.Unsafe (unsafePerformIO)
177#if !MIN_VERSION_base(4,10,0)
176#if !MIN_VERSION_base(4,10,0)
178import Control.Concurrent.MVar (readMVar)
177import Control.Concurrent.MVar (readMVar)
179import Data.Typeable (cast)
178import Data.Typeable (cast)
@@ -958,13 +957,7 @@ getRelPath Event{..} = eventRelPath
958-- /Internal/
957-- /Internal/
959--
958--
960getAbsPath :: Event -> Array Word8
959getAbsPath :: 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
968
961
969-- XXX should we use a Maybe?
962-- XXX should we use a Maybe?
970-- | Cookie is set when a rename occurs. The cookie value can be used to
963-- | Cookie is set when a rename occurs. The cookie value can be used to