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? Например, я хочу запустить команду ebook-convert для этих имен файлов, завернутых Sh Monad.

Btw: Примеры действительно скудны в Интернете ... И очень сбивает с толку, что есть две похожие лимии: Shelly и Shelly.Pipe. Функции внутри этих двух акций тем же именем с разными типами: В Shelly.Pipe:

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

В Shelly:

find :: FilePath -> ShIO [FilePath] 

Действительно расстраивает!

PS: С помощью John Wiegley У меня наконец-то появился код. Опубликуйте приведенный ниже код для людей, которые могут его использовать. Обратите внимание на использование распаковки.

{-# 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 реализует MonadIO, что позволяет выполнять произвольные действия ввода-вывода, находясь внутри ShIO. Это позволит вам сделать что-то вроде

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