Merge branch 'stable-2.16' into stable-2.17
[ganeti-github.git] / src / Ganeti / UDSServer.hs
index b4f975f..5063bf3 100644 (file)
@@ -70,7 +70,9 @@ module Ganeti.UDSServer
   , listener
   ) where
 
-import Control.Applicative
+import Prelude ()
+import Ganeti.Prelude
+
 import Control.Concurrent.Lifted (fork, yield)
 import Control.Monad.Base
 import Control.Monad.Trans.Control
@@ -79,7 +81,7 @@ import Control.Monad
 import qualified Data.ByteString as B
 import qualified Data.ByteString.UTF8 as UTF8
 import Data.IORef
-import Data.List
+import Data.List (isInfixOf)
 import Data.Word (Word8)
 import qualified Network.Socket as S
 import System.Directory (removeFile)