refactoring to avoid repetition

Delapouite · Jan 18, 2016 · 62f4646 · 62f4646
1 parent 51cdc48
commit 62f4646
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/src/BranchParse.hs b/src/src/BranchParse.hs
@@ -66,10 +66,7 @@ newRepo :: Parser MBranchInfo
 newRepo =
 	do -- Parsec
 		string "Initial commit on "
-		branch <- many anyChar
-		eof
-		let bi = MkBranchInfo (MkBranch branch) Nothing
-		return (Just bi)
+		branchOnly
 
 noBranch :: Parser MBranchInfo
 noBranch =