fileInfo' :: Monad m => Filename -> (ReaderT Info m) FileInfo
fileInfo' pos = liftM ((! pos) . fileInfoArray) ask
fileInfo' :: Monad m => Filename -> (ReaderT Info m) FileInfo
fileInfo' pos = liftM ((! pos) . fileInfoArray) ask
fileInfo' pos = liftM ((! pos) . fileInfoArray) ask