gistfile1.txt

import System.LibVirt
import Control.Monad

main = do
  c <- openConnection "qemu:///system"
  putStrLn "opened connection"
  void $ defineDomainXML c xml
  putStrLn "defined domain"
  void $ closeConnection c
  putStrLn "closed connection"


xml = "<domain type=\"qemu\">\
\   <name>TEST-03</name>\
\   <title>test from wiki</title>\
\   <vcpu>1</vcpu>\
\   <memory unit='KiB'>83886</memory>\
\   <os>\
\       <type arch=\"x86_64\">hvm</type>\
\   </os>\
\   <clock sync=\"localtime\"/>\
\   <devices>\
\       <emulator>/usr/bin/qemu-system-x86_64</emulator>\
\       <disk type=\"file\" device=\"disk\">\
\           <source file=\"/var/lib/vm-mon/domains/TEST-03/IMAGE\"/>\
\           <target dev=\"hda\"/>\
\       </disk>\
\   </devices>\
\</domain>"

C - no errors:

#include <stdlib.h>
#include <stdio.h>
#include <libvirt/libvirt.h>

int main(int argc, char **argv) {
    virConnectPtr conn = NULL;
    conn = virConnectOpenAuth("qemu:///system", virConnectAuthPtrDefault, 0);
    if (conn == NULL) {
            fprintf(stderr, "Failed to connect to hypervisor\n");
            goto error;
    }

    virDomainDefineXML(conn, "<domain type=\"kvm\">"
    "<name>TEST-03</name>"
    "<title>test from wiki</title>"
    "<vcpu>1</vcpu>"
    "<memory unit='KiB'>83886</memory>"
    "<os>"
    "   <type arch=\"x86_64\">hvm</type>"
    "</os>"
    "<clock sync=\"localtime\"/>"
    "<devices>"
    "   <emulator>/usr/bin/qemu-system-x86_64</emulator>"
    "   <disk type=\"file\" device=\"disk\">"
    "       <source file=\"/var/lib/vm-mon/files/hvmmuser/linux-0.2.img\"/>"
    "       <target dev=\"hda\"/>"
    "   </disk>"
    "</devices>"
    "</domain>");

error:
    if (conn != NULL)
        virConnectClose(conn);
    return 0;
}