Revision c87997d2 src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
36 36
import Control.Exception
37 37
import Control.Monad (forever)
38 38
import Data.Bits (bitSize)
39
import qualified Data.Set as Set (toList)
39 40
import Data.IORef
40 41
import qualified Network.Socket as S
41 42
import qualified Text.JSON as J
......
43 44
import System.Info (arch)
44 45

  
45 46
import qualified Ganeti.Constants as C
47
import qualified Ganeti.ConstantUtils as ConstantUtils (unFrozenSet)
46 48
import Ganeti.Errors
47 49
import qualified Ganeti.Path as Path
48 50
import Ganeti.Daemon
......
96 98
      obj = [ ("software_version", showJSON C.releaseVersion)
97 99
            , ("protocol_version", showJSON C.protocolVersion)
98 100
            , ("config_version", showJSON C.configVersion)
99
            , ("os_api_version", showJSON $ maximum C.osApiVersions)
101
            , ("os_api_version", showJSON . maximum .
102
                                 Set.toList . ConstantUtils.unFrozenSet $
103
                                 C.osApiVersions)
100 104
            , ("export_version", showJSON C.exportVersion)
101 105
            , ("vcs_version", showJSON C.vcsVersion)
102 106
            , ("architecture", showJSON arch_tuple)

Also available in: Unified diff