Untabify.
authorMikhail Glushenkov <mikhail.glushenkov@gmail.com>
Sun, 23 Aug 2015 00:03:55 +0000 (02:03 +0200)
committerMikhail Glushenkov <mikhail.glushenkov@gmail.com>
Sun, 23 Aug 2015 00:03:58 +0000 (02:03 +0200)
Since 7.10, GHC warns about tabs.

Text/Parsec/Language.hs

index a8bf2b5..ee4909e 100644 (file)
@@ -3,14 +3,14 @@
 -- Module      :  Text.Parsec.Language
 -- Copyright   :  (c) Daan Leijen 1999-2001, (c) Paolo Martini 2007
 -- License     :  BSD-style (see the LICENSE file)
--- 
+--
 -- Maintainer  :  derek.a.elkins@gmail.com
 -- Stability   :  provisional
 -- Portability :  non-portable (uses non-portable module Text.Parsec.Token)
 --
 -- A helper module that defines some language definitions that can be used
 -- to instantiate a token parser (see "Text.Parsec.Token").
--- 
+--
 -----------------------------------------------------------------------------
 
 module Text.Parsec.Language
@@ -41,9 +41,9 @@ haskellStyle = emptyDef
                 , commentLine    = "--"
                 , nestedComments = True
                 , identStart     = letter
-                , identLetter   = alphaNum <|> oneOf "_'"
-                , opStart       = opLetter haskellStyle
-                , opLetter      = oneOf ":!#$%&*+./<=>?@\\^|-~"
+                , identLetter    = alphaNum <|> oneOf "_'"
+                , opStart        = opLetter haskellStyle
+                , opLetter       = oneOf ":!#$%&*+./<=>?@\\^|-~"
                 , reservedOpNames= []
                 , reservedNames  = []
                 , caseSensitive  = True
@@ -55,16 +55,16 @@ haskellStyle = emptyDef
 
 javaStyle  :: LanguageDef st
 javaStyle   = emptyDef
-               { commentStart   = "/*"
-               , commentEnd     = "*/"
-               , commentLine    = "//"
-               , nestedComments = True
-               , identStart     = letter
-               , identLetter    = alphaNum <|> oneOf "_'"
-               , reservedNames  = []
-               , reservedOpNames= []
+                { commentStart   = "/*"
+                , commentEnd     = "*/"
+                , commentLine    = "//"
+                , nestedComments = True
+                , identStart     = letter
+                , identLetter    = alphaNum <|> oneOf "_'"
+                , reservedNames  = []
+                , reservedOpNames= []
                 , caseSensitive  = False
-               }
+                }
 
 -----------------------------------------------------------
 -- minimal language definition
@@ -105,12 +105,12 @@ haskell      = makeTokenParser haskellDef
 
 haskellDef  :: LanguageDef st
 haskellDef   = haskell98Def
-               { identLetter    = identLetter haskell98Def <|> char '#'
-               , reservedNames  = reservedNames haskell98Def ++
-                                  ["foreign","import","export","primitive"
-                                  ,"_ccall_","_casm_"
-                                  ,"forall"
-                                  ]
+                { identLetter    = identLetter haskell98Def <|> char '#'
+                , reservedNames  = reservedNames haskell98Def ++
+                                   ["foreign","import","export","primitive"
+                                   ,"_ccall_","_casm_"
+                                   ,"forall"
+                                   ]
                 }
 
 -- | The language definition for the language Haskell98.
@@ -142,8 +142,8 @@ mondrian    = makeTokenParser mondrianDef
 
 mondrianDef :: LanguageDef st
 mondrianDef = javaStyle
-               { reservedNames = [ "case", "class", "default", "extends"
-                                 , "import", "in", "let", "new", "of", "package"
-                                 ]
+                { reservedNames = [ "case", "class", "default", "extends"
+                                  , "import", "in", "let", "new", "of", "package"
+                                  ]
                 , caseSensitive  = True
-               }
+                }