From ce8a828380649402512999cceb8885456de5c15c Mon Sep 17 00:00:00 2001 From: Fedor Gogolev Date: Mon, 16 Sep 2013 14:00:45 +0400 Subject: [PATCH] Update for recent bitset version --- src/System/Xen/Types.hsc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/System/Xen/Types.hsc b/src/System/Xen/Types.hsc index 2ea6df9..d9c14f6 100644 --- a/src/System/Xen/Types.hsc +++ b/src/System/Xen/Types.hsc @@ -22,7 +22,6 @@ import Prelude hiding (elem, foldl) import Control.Applicative ((<$>)) import Data.Bits (testBit, bit, (.|.)) import Data.Maybe (catMaybes) -import Data.Foldable (foldl) import Data.Word (Word32, Word64) import Foreign.C (CInt(..), CUInt(..)) #if XEN_SYSCTL_INTERFACE_VERSION == 8 @@ -154,7 +153,7 @@ instance Storable DomainInfo where #{poke xc_dominfo_t, domid} ptr domainInfoId #{poke xc_dominfo_t, ssidref} ptr domainInfoSsidRef let off = sizeOf domainInfoId + sizeOf domainInfoSsidRef - let flags :: CUInt = foldl (\a b -> a .|. bit (fromEnum b)) 0 domainInfoFlags + let flags :: CUInt = BitSet.foldl' (\a b -> a .|. bit (fromEnum b)) 0 domainInfoFlags pokeByteOff ptr off flags case domainInfoShutdownReason of Nothing -> return ()