Moved fst3, snd3, thd3 functions to Parse.hs

1 files changed, 14 insertions, 1 deletions

diff --git a/Parse.hs b/Parse.hs
index 676f2e7..f8e6793 100644
--- a/Parse.hs
+++ b/Parse.hs
@@ -7,7 +7,10 @@ module Parse (
 	isComment,
 	isNumber,
 	isName,
-	output
+	output,
+	fst3,
+	snd3,
+	thd3
 	) where
 
 import Control.Monad( liftM )
@@ -62,3 +65,13 @@ output [] = return ()
 output list = do
 	putStrLn (head list)
 	output (tail list)
+
+
+fst3 :: (a,b,c) -> a
+fst3 (a,_,_) = a
+
+snd3 :: (a,b,c) -> b
+snd3 (_,b,_) = b
+
+thd3 :: (a,b,c) -> c
+thd3 (_,_,c) = c