module FudIO(fudIO1) where
import CmdLineEnv(argFlag)
import SpIO
import TagEvents
import FudVersion
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)