From d0cab364562ba696dfd5396a10b698de6a1a5f02 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 21 Nov 2014 19:04:03 +1100 Subject: Incorporated Grasp.Edge and Grasp.Node into the one Grasp.Graph module, loosely based on Data.Graph.Inductive.Graph --- src/Grasp/Node.hs | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 src/Grasp/Node.hs (limited to 'src/Grasp/Node.hs') diff --git a/src/Grasp/Node.hs b/src/Grasp/Node.hs deleted file mode 100644 index ce84163..0000000 --- a/src/Grasp/Node.hs +++ /dev/null @@ -1,47 +0,0 @@ -module Grasp.Node ( - GNode, - GNodeType, - - singleton, - uSingleton, - fromStringList, - lab, - inst, - idNo - ) where - - - -import Data.Graph.Inductive.Graph( LNode ) -import Data.Map( Map ) -import qualified Data.Map as Map - - - -type GNode = LNode (Maybe String, String) -type GNodeType = (Maybe String, String) - - - -singleton :: Int -> String -> String -> GNode -singleton i m s = (i,(Just m,s)) - -uSingleton :: Int -> String -> GNode -uSingleton i s = (i,(Nothing,s)) - -fromStringList :: Map String Int -> [(String,String)] -> [GNode] -fromStringList m ns = - let change x = case (Map.lookup x m) of - Just a -> a - Nothing -> error "Grasp.Node.fromStringList: no value for key " ++ x - in map (\(x,y) -> (change x, (Just x, y))) ns - -lab :: GNode -> Maybe String -lab (_,(x,_)) = x - -inst :: GNode -> String -inst (_,(_,x)) = x - -idNo :: GNode -> Int -idNo (x,(_,_)) = x - -- cgit