Better Solution

src/Copar/Parser/Lexer.hs

@@ -46,9 +46,8 @@ import           Copar.Parser.Types
 import           Data.Float.Utils (EqDouble, fromDouble)
 
 newline :: MonadParser m => m ()
-newline = (void (takeWhile1P (Just "newline") (=='\n'))
+newline = (void (takeWhile1P (Just "newline") (`elem` ['\r', '\n']))
           <|> (skipLineComment <* char '\n')) *> space
-		  <|> void ((,) <$> takeWhile1P Nothing (=='\r') <*> takeWhile1P (Just "newline") (=='\n'))
 {-# INLINE newline #-}
 
 -- | Parses newlines or the end of input