diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-12-06 00:32:49 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-12-06 00:32:49 +1100 |
| commit | d3a9803cf89ea94975934dd8abb18bbc12408a7e (patch) | |
| tree | 321ddb45e29a10d3dc1cd1c0ac9387d447db5afc /src/Grasp/GEdge.hs | |
| parent | 2aa0bab498cffbc12d485d2c59f7aed04c69c409 (diff) | |
All newtype stubs now in their own files in their own subdir
Diffstat (limited to 'src/Grasp/GEdge.hs')
| -rw-r--r-- | src/Grasp/GEdge.hs | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/src/Grasp/GEdge.hs b/src/Grasp/GEdge.hs deleted file mode 100644 index fcd826a..0000000 --- a/src/Grasp/GEdge.hs +++ /dev/null @@ -1,58 +0,0 @@ -module Grasp.GEdge ( - GEdge, - EdgeLabel, - - mkGEdge, - mkLabel, - - toSrc, - toDest, - toLabel, - toLEdge - ) where - - - - -import Grasp.Graph( Node, LEdge ) - - - - -newtype EdgeLabel = EdgeLabel String - deriving (Show, Eq) - -newtype GEdge = GEdge (LEdge EdgeLabel) - deriving (Show, Eq) - - - - -mkGEdge :: LEdge EdgeLabel -> GEdge -mkGEdge = GEdge - - - -mkLabel :: String -> EdgeLabel -mkLabel = EdgeLabel - - - -toSrc :: GEdge -> String -toSrc (GEdge (x,_,_)) = x - - - -toDest :: GEdge -> String -toDest (GEdge (_,y,_)) = y - - - -toLabel :: GEdge -> EdgeLabel -toLabel (GEdge (_,_,z)) = z - - - -toLEdge :: GEdge -> LEdge EdgeLabel -toLEdge (GEdge e) = e - |