From 8e9f71bbec90d74390cae13db6f091bc5609f79e Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 14 May 2012 22:13:30 +1000
Subject: Moved a number of article format parsing functions to a separate file

---
 Syntactic.hs | 25 -------------------------
 1 file changed, 25 deletions(-)

(limited to 'Syntactic.hs')

diff --git a/Syntactic.hs b/Syntactic.hs
index 45eedda..6502c43 100644
--- a/Syntactic.hs
+++ b/Syntactic.hs
@@ -1,30 +1,5 @@
-import Control.Monad( liftM )
 import System( getArgs )
 import Text.Printf
-import qualified Data.Char as Char
-
-
-getLines :: FilePath -> IO [String]
-getLines = liftM lines . readFile
-
-
-stripReturn :: String -> String
-stripReturn s = if (last s == '\r') then init s else s
-
-
-isComment :: String -> Bool
-isComment = (==) '#' . head
-
-
-isNumber :: String -> Bool
-isNumber ('0':[]) = True
-isNumber ('-':ns)
-         | (ns /= [] && head ns /= '0') = isNumber ns
-isNumber n = all (Char.isNumber) n
-
-
-isName :: String -> Bool
-isName s = all ((==) '"') [head s, last s]
 
 
 scan :: String -> String
-- 
cgit