From 5eca314e6ce3652cebd6def1d7c58165b4ef4871 Mon Sep 17 00:00:00 2001 From: konsumlamm Date: Fri, 26 Dec 2025 02:06:56 +0100 Subject: [PATCH] Make it compile with MicroHs --- Text/XML/Light/Proc.hs | 4 ++-- xml.cabal | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/Text/XML/Light/Proc.hs b/Text/XML/Light/Proc.hs index 6a1c576..cbca789 100644 --- a/Text/XML/Light/Proc.hs +++ b/Text/XML/Light/Proc.hs @@ -46,7 +46,7 @@ filterChildren p e = filter p (onlyElems (elContent e)) -- | Filter all immediate children wrt a given predicate over their names. filterChildrenName :: (QName -> Bool) -> Element -> [Element] -filterChildrenName p e = filter (p.elName) (onlyElems (elContent e)) +filterChildrenName p e = filter (p . elName) (onlyElems (elContent e)) -- | Find an immediate child with the given name. @@ -91,7 +91,7 @@ filterElements p e -- (i.e., once we have found an element, we do not search -- for more occurances among the element's children). filterElementsName :: (QName -> Bool) -> Element -> [Element] -filterElementsName p e = filterElements (p.elName) e +filterElementsName p e = filterElements (p . elName) e -- | Lookup the value of an attribute. findAttr :: QName -> Element -> Maybe String diff --git a/xml.cabal b/xml.cabal index 6fd2249..088e8f1 100644 --- a/xml.cabal +++ b/xml.cabal @@ -16,11 +16,11 @@ Cabal-version: >= 1.6 library Build-depends: base >= 3 && < 5, bytestring, text Ghc-options: -Wall -O2 - Exposed-modules: Text.XML.Light, - Text.XML.Light.Types, - Text.XML.Light.Output, - Text.XML.Light.Input, - Text.XML.Light.Lexer, + Exposed-modules: Text.XML.Light + Text.XML.Light.Types + Text.XML.Light.Output + Text.XML.Light.Input + Text.XML.Light.Lexer Text.XML.Light.Proc Text.XML.Light.Cursor Extensions: FlexibleInstances