Just exporting one function.

src/Data/GexfParser.hs

 {-# LANGUAGE Arrows, NoMonomorphismRestriction #-}
 
-module Data.GexfParser where
+module Data.GexfParser (importGraphFromGexf)
+ where
 
 import Text.XML.HXT.Core
 import qualified Data.Graph as DataGraph
@@ -65,8 +66,8 @@ importGraph file = do
 --importGraph' :: FilePath -> IO [(Int, [Int])]
 importGraph' file = runX (readDocument [withValidate no] file >>> parseGraph)
 
-importGraph'' :: FilePath -> IO [FGL.LEdge Double]
-importGraph'' file = Prelude.map (\(a,b) -> (read a, read b, 1)) <$> edges <$> head <$> importGraph' file
+importGraphFromGexf :: FilePath -> IO [FGL.LEdge Double]
+importGraphFromGexf file = Prelude.map (\(a,b) -> (read a, read b, 1)) <$> edges <$> head <$> importGraph' file
 
 
 --main :: IO()