Revision fb8d8645 src/Ganeti/Query/Query.hs

b/src/Ganeti/Query/Query.hs
57 57 
    ) where
58 58 

  		





  59
  59
  
    
import Control.DeepSeq


  		





  60
  
  
    
import Control.Monad (filterM, foldM)


  		





  
  60
  
    
import Control.Monad (filterM, foldM, liftM)


  		





  61
  61
  
    
import Control.Monad.Trans (lift)


  		





  62
  62
  
    
import qualified Data.Foldable as Foldable


  		





  63
  
  
    
import Data.List (intercalate)


  		





  
  63
  
    
import Data.List (intercalate, nub)


  		





  64
  64
  
    
import Data.Maybe (fromMaybe)


  		





  65
  65
  
    
import qualified Data.Map as Map


  		





  66
  66
  
    
import qualified Text.JSON as J


  		





  ......




  164
  164
  
    
    Nothing -> Ok []


  		





  165
  165
  
    
    Just [] -> Ok []


  		





  166
  166
  
    
    Just vals ->


  		





  
  167
  
    
      liftM nub $


  		





  167
  168
  
    
      mapM (\e -> case e of


  		





  168
  169
  
    
                    QuotedString s -> makeJobIdS s


  		





  169
  170
  
    
                    NumericValue i -> makeJobId $ fromIntegral i


  		












Also available in:
  Unified diff