allSyms' :: Monad m => (ReaderT (Array Symbol ByteString) m) [Symbol]
allSyms' = liftM indices ask
allSyms' :: Monad m => (ReaderT (Array Symbol ByteString) m) [Symbol]
allSyms' = liftM indices ask
allSyms' = liftM indices ask