module FudIO(fudIO1) where
import CmdLineEnv(argFlag)
--import Fudget
import TagEvents
import FudVersion
import DialogueSpIO(dialogueSpIO)

--fudIO1 :: F a b -> IO ()
fudIO1 mainF =
    if argFlag "version" False
    then putStrLn ("Fudget library " ++ version)
    else dialogueSpIO . tagRequestsSP $ tagEventsSP mainF