From d3a9803cf89ea94975934dd8abb18bbc12408a7e Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 6 Dec 2014 00:32:49 +1100 Subject: All newtype stubs now in their own files in their own subdir --- src/Grasp/GNode.hs | 60 ------------------------------------------------------ 1 file changed, 60 deletions(-) delete mode 100644 src/Grasp/GNode.hs (limited to 'src/Grasp/GNode.hs') diff --git a/src/Grasp/GNode.hs b/src/Grasp/GNode.hs deleted file mode 100644 index 3c8161e..0000000 --- a/src/Grasp/GNode.hs +++ /dev/null @@ -1,60 +0,0 @@ -module Grasp.GNode ( - GNode, - Instruction, - - mkGNode, - mkInst, - - toNode, - toInst, - toLNode, - - instToFloat - ) where - - - - -import Grasp.Graph( Node, LNode ) -import Text.Read( readMaybe ) - - - - -newtype Instruction = Instruction String - deriving (Show, Eq) - -newtype GNode = GNode (LNode Instruction) - deriving (Show, Eq) - - - - -mkGNode :: LNode Instruction -> GNode -mkGNode = GNode - - - -mkInst :: String -> Instruction -mkInst = Instruction - - - -toNode :: GNode -> Node -toNode (GNode n) = fst n - - - -toInst :: GNode -> Instruction -toInst (GNode n) = snd n - - - -toLNode :: GNode -> LNode Instruction -toLNode (GNode n) = n - - - -instToFloat :: Instruction -> Maybe Float -instToFloat (Instruction i) = readMaybe i - -- cgit