oropa :: QoropaConfig -> IO ()
qoropa cfg = do
    ui <- start cfg
    mainLoop ui

-- vim: set ft=haskell et ts=4 sts=4 sw=4 fdm=marker :

qoropa :: QoropaConfig -> IO ()
qoropa cfg = do
    ui <- start cfg
    mainLoop ui

-- vim: set ft=haskell et ts=4 sts=4 sw=4 fdm=marker :
qoropa cfg = do
    ui <- start cfg
    mainLoop ui

-- vim: set ft=haskell et ts=4 sts=4 sw=4 fdm=marker :