misfortune-0.1: src/StrFile.hs

module Main where

import Data.Fortune
import System.Environment

main = do
    args <- getArgs
    mapM_ index args

index file = do
    fortune <- openFortuneFile file '%' True
    rebuildIndex fortune