1. paradoxiology
  2. Lime

Commits

chao  committed a0006a3

Get rid of trailing spaces

  • Participants
  • Parent commits 618f02d
  • Branches default

Comments (0)

Files changed (2)

File src/Command.hs

View file
  • Ignore whitespace
             Nothing  -> T.unlines selectedLines
 
 seletLines :: LineCommand -> LineSelection -> [T.Text] -> [T.Text]
-seletLines lnCmd lnSel 
-  = execLineCommand lnCmd (regexRangeSel lnSel) 
-    . execRegexCommand (regexSel lnSel) 
+seletLines lnCmd lnSel
+  = execLineCommand lnCmd (regexRangeSel lnSel)
+    . execRegexCommand (regexSel lnSel)
     . takeRange (rangeSel lnSel)
 
 execLineCommand :: LineCommand -> Range -> [a] -> [a]

File src/Parser.hs

View file
  • Ignore whitespace
 
 range :: Parser Range
 range = option fullRange (try lRange <|> atRange)
-  where 
+  where
     atRange = do
       a <- integer
       return $ mkRangeAt a
     lRange = do
       f <- optionMaybe integer
       r <- char ',' *> optionMaybe integer
-      case (f, r) of 
+      case (f, r) of
         (Just from, Just to) -> return $ mkRange from to
         (Just from, Nothing) -> return $ mkRangeFrom from
         (Nothing, Just to) -> return $ mkRangeTo to