ain :: IO ()
main =
#if defined(RADOS)
    do
        Options pool user ns cmd <- execParser helpfulParser

        case cmd of
            Register s_buckets e_buckets -> do
                s <- radosStore (fmap S.pack user)
                                "/etc/ceph/ceph.conf"
                                (S.pack pool)
                                0
                registered <- isRegistered s ns
                if registered
                    then putStrLn "Origin already registered"
                    else registerNamespace s ns s_buckets e_buckets
#else
    putStrLn "No CEPH"
#endif

main :: IO ()
main =
#if defined(RADOS)
    do
        Options pool user ns cmd <- execParser helpfulParser

        case cmd of
            Register s_buckets e_buckets -> do
                s <- radosStore (fmap S.pack user)
                                "/etc/ceph/ceph.conf"
                                (S.pack pool)
                                0
                registered <- isRegistered s ns
                if registered
                    then putStrLn "Origin already registered"
                    else registerNamespace s ns s_buckets e_buckets
#else
    putStrLn "No CEPH"
#endif
main =
#if defined(RADOS)
    do
        Options pool user ns cmd <- execParser helpfulParser

        case cmd of
            Register s_buckets e_buckets -> do
                s <- radosStore (fmap S.pack user)
                                "/etc/ceph/ceph.conf"
                                (S.pack pool)
                                0
                registered <- isRegistered s ns
                if registered
                    then putStrLn "Origin already registered"
                    else registerNamespace s ns s_buckets e_buckets
#else
    putStrLn "No CEPH"
#endif