Assist with possible pipes safe issue on Win32

Directory

data Info = Info {
      infoPath :: FilePath
    , infoPerms :: Permissions
    , infoSize :: Maybe Integer
    , infoModTime :: UTCTime
    , infoVariance :: Double
    } deriving (Eq, Show, Ord)

-- | main executable function
--   will recurse through directories and unlock all the goodies
scanFileSystemPrototype :: FilePath -> ListT (SafeT IO) Info
scanFileSystemPrototype root = do
   file <- recursiveContents (FP.decodeString root)
   guard (filterData (FP.encodeString file))
   perms <- liftIO (getPermissions (FP.encodeString file))
   guard (readable perms) -- assert that file can be manipulated by executing account
   liftIO (checkFile perms (FP.encodeString file))
  where
   checkFile fnAttr filename = do
       size <- getFileSize filename
       modified <- getModificationTime filename
       vari <- computeVariance filename
       fn <- absolutize filename
       return $ Info fn fnAttr size modified vari