Commit aa4a4b76 authored by Petr Pudlak's avatar Petr Pudlak
Browse files

Fix lint errors after moving Luxi code to UDSServer



Remove unused imports and update the 'buildCall' call in tests.
Signed-off-by: default avatarPetr Pudlak <pudlak@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent 6856693f
......@@ -35,6 +35,7 @@ module Ganeti.Luxi
, makeJobId
, RecvResult(..)
, strOfOp
, opToArgs
, getLuxiClient
, getLuxiServer
, acceptClient
......
......@@ -38,12 +38,7 @@ import Control.Monad
import Control.Monad.Base
import Control.Monad.Error
import Control.Monad.Reader
import Data.Char (toLower, toUpper)
import Data.Functor
import Data.List (concat)
import Data.Maybe (fromMaybe)
import Language.Haskell.TH
import Language.Haskell.TH.Syntax (liftString)
import qualified Text.JSON as J
import Ganeti.BasicTypes
......
......@@ -96,7 +96,8 @@ instance Arbitrary Luxi.LuxiOp where
-- | Simple check that encoding/decoding of LuxiOp works.
prop_CallEncoding :: Luxi.LuxiOp -> Property
prop_CallEncoding op =
(US.parseCall (Luxi.buildCall op) >>= uncurry Luxi.decodeLuxiCall) ==? Ok op
(US.parseCall (US.buildCall (Luxi.strOfOp op) (Luxi.opToArgs op))
>>= uncurry Luxi.decodeLuxiCall) ==? Ok op
-- | Server ping-pong helper.
luxiServerPong :: Luxi.Client -> IO ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment