Haskell Shelly 示例代码

Question

我正在尝试弄清楚如何使用 Shelly (Shell.Pipe) 库。 到目前为止，我得到了：

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ExtendedDefaultRules #-}
{-# OPTIONS_GHC -fno-warn-type-defaults #-}
import Control.Applicative
import Data.List(sort)

import Shelly.Pipe
import Data.Text.Lazy as LT

default (LT.Text)

findExt ext = findWhen (pure . hasExt ext)
main = shelly $ verbosely $ do
cd bookPath 
findExt "epub" "."

我可以找到所有的 epub 文件，但是我不知道如何对每个 epub 文件进行操作？ 例如，我想对由 Sh Monad 包裹的文件名运行 ebook-convert 命令。

顺便说一句：这些例子在互联网上真的很稀少...... 有两个相似的库是非常令人困惑的：Shelly 和 Shelly.Pipe。这两个内部的函数具有相同的名称和不同的类型： 在 Shelly.Pipe 中：

find :: FilePath -> Sh FilePath
find = sh1s S.find

在雪莉：

find :: FilePath -> ShIO [FilePath]

真的很郁闷！

PS：在John Wiegley的帮助下 我终于让代码工作了。 我将下面的代码发布给可能使用它的人。 注意使用unpack。

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ExtendedDefaultRules #-}
{-# OPTIONS_GHC -fno-warn-type-defaults #-}

import Control.Applicative
import Data.List(sort)
import Control.Monad
import Shelly
import System.Directory
import Data.Text
import System.FilePath
default (Text)


bookPath = "/dir/to/books"

main = shelly $ verbosely $ do
    fnames <- Shelly.find bookPath  --fnames can not be processed by normal pure String processing functions and need to be "escaped"
    forM_ fnames $ \n-> liftIO $ putStrLn $ ProcessBookFileName $ unpack $ toTextIgnore n --ProcessBookFileName::String->String

Answer 1

据我所知，您不想使用Shelly.Pipe 模块，而只是使用Shelly 模块。 ShIO monad 实现了MonadIO，它允许您在ShIO 内部执行任意IO 操作。这会让你做类似的事情

convertEpub :: FilePath -> IO ()
convertEpub fname = undefined

main = shelly $ do
    cd "projects/haskell/testing"
    liftIO $ putStrLn "Hello, world!  I'm in Shelly"
    fnames <- find (pure . hasExt "hs") "."
    liftIO $ forM_ fnames $ \fname -> do
        putStrLn $ "Processing file " ++ show fname
        convertEpub fname