diff options
Diffstat (limited to 'src/Grasp/Types.hs')
-rw-r--r-- | src/Grasp/Types.hs | 54 |
1 files changed, 0 insertions, 54 deletions
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 - |