diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-12-05 19:59:04 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-12-05 19:59:04 +1100 |
| commit | 2aa0bab498cffbc12d485d2c59f7aed04c69c409 (patch) | |
| tree | 49ed6dc7e2e2feedb585f52fbcfa84a97aa8c9ca /src/Grasp/Types.hs | |
| parent | e473808bb92c8f7078d17c0798f6852d4c4b881b (diff) | |
GNode and GEdge types now have their own files... again...
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 - |