getCurrentRealmR      :: RealmId -> Path -> APIHandler Value
getCurrentRealmR ri p = do
                          mr <- lift . queryAcid $ Access ri p
                          case mr of
                            Nothing   -> notFound
                            Just node -> pure . toJSON . current' $ node
getCurrentRealmR      :: RealmId -> Path -> APIHandler Value
getCurrentRealmR ri p = do
                          mr <- lift . queryAcid $ Access ri p
                          case mr of
                            Nothing   -> notFound
                            Just node -> pure . toJSON . current' $ node
getCurrentRealmR ri p = do
                          mr <- lift . queryAcid $ Access ri p
                          case mr of
                            Nothing   -> notFound
                            Just node -> pure . toJSON . current' $ node