33ab0a9 · typeable/hexml

git.iko.soy/typeable/hexml

Fix HLint warnings

commit33ab0a938ae832ca06901d46c4f3f73c1007ecc5 authorNeil Mitchell <ndmitchell@gmail.com> dateWed 12 Apr 2017, 21:10 (10 years ago) parent0fbf5e8

2 files changed+3−3

unifiedsplit

src/Main.hs+1−1

@@ -22,7 +22,7 @@ examples =

2222

2323main :: IO ()

2424main = do

25− forM_ examples $ \(parses, src) -> do

25+ forM_ examples $ \(parses, src) ->

2626 case parse src of

2727 Left err -> when parses $ fail $ "Unexpected parse failure, " ++ show err

2828 Right doc -> do

src/Text/XML/Hexml.hs+2−2

@@ -152,7 +152,7 @@ contents n@(Node src _ _) = f (strStart inner) outers

152152

153153-- | Get the direct child nodes of this node.

154154children :: Node -> [Node]

155−children (Node src doc n) = unsafePerformIO $ withForeignPtr doc $ \d -> do

155+children (Node src doc n) = unsafePerformIO $ withForeignPtr doc $ \d ->

156156 alloca $ \count -> do

157157 res <- hexml_node_children d n count

158158 count <- fromIntegral <$> peek count

@@ -160,7 +160,7 @@ children (Node src doc n) = unsafePerformIO $ withForeignPtr doc $ \d -> do

160160

161161-- | Get the attributes of this node.

162162attributes :: Node -> [Attribute]

163−attributes (Node src doc n) = unsafePerformIO $ withForeignPtr doc $ \d -> do

163+attributes (Node src doc n) = unsafePerformIO $ withForeignPtr doc $ \d ->

164164 alloca $ \count -> do

165165 res <- hexml_node_attributes d n count

166166 count <- fromIntegral <$> peek count