From 2aa0bab498cffbc12d485d2c59f7aed04c69c409 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 5 Dec 2014 19:59:04 +1100 Subject: GNode and GEdge types now have their own files... again... --- src/Grasp/Types.hs | 54 ------------------------------------------------------ 1 file changed, 54 deletions(-) delete mode 100644 src/Grasp/Types.hs (limited to 'src/Grasp/Types.hs') diff --git a/src/Grasp/Types.hs b/src/Grasp/Types.hs deleted file mode 100644 index 62d8043..0000000 --- a/src/Grasp/Types.hs +++ /dev/null @@ -1,54 +0,0 @@ -module Grasp.Types ( - Instruction(..), - EdgeLabel(..), - GNode(..), - GEdge(..), - - gnode, - gninst, - gefrom, - geto, - gelabel - ) where - - - - -import Grasp.Graph( Node, LNode, LEdge ) - - - - -newtype Instruction = Instruction String - deriving (Eq, Show) - -newtype EdgeLabel = EdgeLabel String - deriving (Eq, Show) - -newtype GNode = GNode (LNode Instruction) - deriving (Eq, Show) - -newtype GEdge = GEdge (LEdge EdgeLabel) - deriving (Eq, Show) - - - - -gnode :: GNode -> Node -gnode (GNode a) = fst a - -gninst :: GNode -> Instruction -gninst (GNode a) = snd a - - - - -gefrom :: GEdge -> Node -gefrom (GEdge (a,_,_)) = a - -geto :: GEdge -> Node -geto (GEdge (_,b,_)) = b - -gelabel :: GEdge -> EdgeLabel -gelabel (GEdge (_,_,c)) = c - -- cgit