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

--fudIO1 :: F a b -> IO ()
fudIO1 :: F i o -> IO ()
fudIO1 F i o
mainF =
    if [Char] -> Bool -> Bool
argFlag [Char]
"version" Bool
False
    then IO ()
showVersion
    else SP (Path, Response) (Path, Request) -> IO ()
spIO SP (Path, Response) (Path, Request)
mainSP
  where
    mainSP :: SP (Path, Response) (Path, Request)
mainSP = F i o -> SP (Path, Response) (Path, Request)
forall i o. F i o -> SP (Path, Response) (Path, Request)
tagEventsSP F i o
mainF

    showVersion :: IO ()
showVersion = [Char] -> IO ()
putStrLn ([Char]
"Fudget library " [Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ [Char]
version)