main :: IO ()
main = do

    anHero
    res <- try mainAction :: IO (Either SomeException ())
    case res of
         Left e -> die $ "Ошибка : " ++ show e
         Right () -> exitSuccess

main :: IO ()
main = do

    anHero
    res <- try mainAction :: IO (Either SomeException ())
    case res of
         Left e -> die $ "Ошибка : " ++ show e
         Right () -> exitSuccess
main = do

    anHero
    res <- try mainAction :: IO (Either SomeException ())
    case res of
         Left e -> die $ "Ошибка : " ++ show e
         Right () -> exitSuccess