Handle Cartfile entries with no new lines at EOL

src/Configuration.hs

@@ -13,6 +13,7 @@ import qualified Data.Text.IO                    as T
 import           System.Directory
 import           System.FilePath
 import           Types
+import           Debug.Trace
 
 
 getCartfileEntires :: RomeMonad [CartfileEntry]

src/Data/Carthage/Cartfile.hs

@@ -17,6 +17,7 @@ import qualified Text.Parsec          as Parsec
 import qualified Text.Parsec.String   as Parsec
 import qualified Text.Parsec.Utils    as Parsec
 import           Data.Carthage.Common
+import           Debug.Trace
 
 newtype Location = Location { unLocation :: String }
                    deriving (Eq, Show, Ord)
@@ -55,20 +56,45 @@ quotedContent :: Parsec.Parsec String () String
 quotedContent =
   Parsec.char '"' *> Parsec.parseUnquotedString <* Parsec.char '"'
 
-parseCartfileResolvedLine :: Parsec.Parsec String () CartfileEntry
-parseCartfileResolvedLine = do
+parseCartfileEntry :: Parsec.Parsec String () CartfileEntry
+parseCartfileEntry = do
   hosting  <- repoHosting
   location <- Location <$> quotedContent
   _        <- Parsec.many1 Parsec.space
   version  <- Version <$> quotedContent
   return CartfileEntry {..}
 
-parseMaybeCartfileEntry :: Parsec.Parsec String () (Maybe CartfileEntry)
-parseMaybeCartfileEntry =
-  Parsec.optional Parsec.spaces
-    *> (parseCartfileResolvedLine `Parsec.onceAndConsumeTill` Parsec.endOfLine)
-
 parseCartfileResolved
   :: MonadIO m => String -> m (Either Parsec.ParseError [CartfileEntry])
 parseCartfileResolved = liftIO . Parsec.parseFromFile
-  (catMaybes <$> Parsec.many (Parsec.try parseMaybeCartfileEntry))
+  (   catMaybes
+  <$> (  (Parsec.many $ do
+           line <-
+             Parsec.optional Parsec.endOfLine
+             *> (   Parsec.try parseEmtpyLine
+                <|> Parsec.try parseDependency
+                <|> Parsec.try parseComment
+                )
+             <* Parsec.optional Parsec.endOfLine
+           case line of
+             Dependency entry ->
+               return $ Just entry
+             _ -> return Nothing
+         )
+      <* Parsec.eof
+      )
+  )
+
+data CartfileLine = EmptyLine | Comment | Dependency { entry :: CartfileEntry } deriving (Eq, Show)
+
+parseDependency :: Parsec.Parsec String () CartfileLine
+parseDependency = Dependency <$> parseCartfileEntry
+
+parseComment :: Parsec.Parsec String () CartfileLine
+parseComment =
+  Parsec.char '#'
+    >> Parsec.manyTill Parsec.anyChar (Parsec.lookAhead Parsec.endOfLine)
+    >> return Comment
+
+parseEmtpyLine :: Parsec.Parsec String () CartfileLine
+parseEmtpyLine = Parsec.many1 Parsec.space >> return EmptyLine

src/Text/Parsec/Utils.hs

@@ -3,7 +3,7 @@
 module Text.Parsec.Utils
     ( parseWhiteSpaces
     , parseUnquotedString
-    , onceAndConsumeTill
+    -- , onceAndConsumeTill
     ) where
 
 
@@ -23,13 +23,13 @@ parseUnquotedString =
   Parsec.many1 (Parsec.noneOf ['"', ' ', '\t', '\n', '\'', '\\', '\r'])
 
 
--- | @onceOrConsumeTill p@ end@ tries to apply the parser @p@ /once/ and consumes
--- | the input until @end@. Returns a `Maybe` of the value of @p@.
--- | Thanks to Tobias Mayer, Berlin Haskell Group.
-onceAndConsumeTill
-  :: (Parsec.Stream s Identity Char)
-  => Parsec.Parsec s u a
-  -> Parsec.Parsec s u b
-  -> Parsec.Parsec s u (Maybe a)
-onceAndConsumeTill p end = Parsec.optionMaybe (Parsec.try p) <* consume
-  where consume = Parsec.try end <|> Parsec.anyChar *> consume
+-- -- | @onceOrConsumeTill p@ end@ tries to apply the parser @p@ /once/ and consumes
+-- -- | the input until @end@. Returns a `Maybe` of the value of @p@.
+-- -- | Thanks to Tobias Mayer, Berlin Haskell Group.
+-- onceAndConsumeTill
+--   :: (Parsec.Stream s Identity Char)
+--   => Parsec.Parsec s u a
+--   -> Parsec.Parsec s u b
+--   -> Parsec.Parsec s u (Maybe a)
+-- onceAndConsumeTill p end = Parsec.optionMaybe (Parsec.try p) <* consume
+--   where consume = Parsec.try end <|> Parsec.anyChar *> consume