Merge pull request #3 from joneshf/master

Updated for changes to Control.

Author: paf31

src/Text/Parsing/Parser/Token.purs.hs

@@ -1,19 +1,17 @@
 module Text.Parsing.Parser.Token where
-  
-import Prelude  
+
+import Prelude
 
 import Data.String
 
 import Control.Monad.State.Class
 import Control.Monad.Error.Class
 
-import Control.Applicative
-
 import Text.Parsing.Parser
 import Text.Parsing.Parser.String
 import Text.Parsing.Parser.Combinators
-  
-type LanguageDef s m = { 
+
+type LanguageDef s m = {
     commentStart    :: String,
     commentEnd      :: String,
     commentLine     :: String,
@@ -26,7 +24,7 @@ type LanguageDef s m = {
     reservedOpNames :: [String],
     caseSensitive   :: Boolean
   }
-  
+
 type TokenParser s m = {
     identifier      :: ParserT s m String,
     reserved        :: String -> ParserT s m String,
@@ -50,15 +48,15 @@ type TokenParser s m = {
     brackets        :: forall a. ParserT s m a -> ParserT s m a,
     semi            :: ParserT s m String,
     comma           :: ParserT s m String,
-    colon           :: ParserT s m String,  
+    colon           :: ParserT s m String,
     dot             :: ParserT s m String,
     semiSep         :: forall a. ParserT s m a -> ParserT s m [a],
     semiSep1        :: forall a. ParserT s m a -> ParserT s m [a],
     commaSep        :: forall a. ParserT s m a -> ParserT s m [a],
     commaSep1       :: forall a. ParserT s m a -> ParserT s m [a]
   }
 
-{- 
+{-
 -- Port in progress
 makeTokenParser :: LanguageDef s m -> TokenParser s m
 makeTokenParser languageDef
@@ -436,5 +434,5 @@ makeTokenParser languageDef
           <?> "end of comment"
           where
             startEnd   = nub (commentEnd languageDef ++ commentStart languageDef)
-            
--}
+
+-}