alfred-margaret-2.0.0.0: app/dump-automaton/Main.hs

module Main where

import Control.Monad (forM)
import qualified Data.Text.Utf8 as Utf8
import Data.Text.AhoCorasick.Automaton (debugBuildDot)
import System.Environment (getArgs)
import System.IO (hPrint, hPutStr, stderr)

main = do
    args <- getArgs
    needles <- forM args $ \needle -> do
        hPutStr stderr $ needle ++ ": "
        let needleBytes = Utf8.unpackUtf8 $ Utf8.pack needle
        hPrint stderr needleBytes
        pure $ Utf8.pack needle

    let dot = debugBuildDot needles
    putStrLn dot