This is necceary for supporting base-4.8.0 and greater, as some functions in Prelude were generalized to Foldable.
Signed-off-by: Bhimanavajjula Aditya <[email protected]> --- src/Ganeti/Hypervisor/Xen/XmParser.hs | 4 ++-- src/Ganeti/Query/Filter.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Ganeti/Hypervisor/Xen/XmParser.hs b/src/Ganeti/Hypervisor/Xen/XmParser.hs index 00f1133..97a2edd 100644 --- a/src/Ganeti/Hypervisor/Xen/XmParser.hs +++ b/src/Ganeti/Hypervisor/Xen/XmParser.hs @@ -71,7 +71,7 @@ lispConfigParser = doubleP = LCDouble <$> A.rational <* A.skipSpace <* A.endOfInput innerDoubleP = LCDouble <$> A.rational stringP = LCString . unpack <$> A.takeWhile1 (not . (\c -> isSpace c - || c `elem` "()")) + || c `elem` ("()" :: String))) wspace = AC.many1 A.space rparen = A.skipSpace *> A.char ')' finalP = listConfigP <* rparen @@ -163,5 +163,5 @@ uptimeLineParser :: Parser UptimeInfo uptimeLineParser = do name <- A.takeTill isSpace <* A.skipSpace idNum <- A.decimal <* A.skipSpace - uptime <- A.takeTill (`elem` "\n\r") <* A.skipSpace + uptime <- A.takeTill (`elem` ("\n\r" :: String)) <* A.skipSpace return . UptimeInfo (unpack name) idNum $ unpack uptime diff --git a/src/Ganeti/Query/Filter.hs b/src/Ganeti/Query/Filter.hs index 7fc1f21..b7df4c4 100644 --- a/src/Ganeti/Query/Filter.hs +++ b/src/Ganeti/Query/Filter.hs @@ -183,10 +183,10 @@ containsFilter :: FilterValue -> JSValue -> ErrorResult Bool -- note: the next two implementations are the same, but we have to -- repeat them due to the encapsulation done by FilterValue containsFilter (QuotedString val) lst = do - lst' <- fromJVal lst + lst' <- fromJVal lst :: ErrorResult [String] return $! val `elem` lst' containsFilter (NumericValue val) lst = do - lst' <- fromJVal lst + lst' <- fromJVal lst :: ErrorResult [Integer] return $! val `elem` lst' -- 1.7.10.4
