no private members

Author: olivierverdier

src/BranchParse.hs

@@ -1,4 +1,4 @@
-module BranchParse (branchInfo, BranchInfo, noBranchInfo, Branch) where
+module BranchParse where
 
 import Control.Applicative ((<$>), (<*>), (<*), (*>), (<$))
 import Text.Parsec (digit, string, char, eof, anyChar, 

src/StatusParse.hs

@@ -1,4 +1,4 @@
-module StatusParse (processStatus, Status(MakeStatus, staged, conflict, changed, untracked)) where
+module StatusParse where
 
 {- Full status information -}
 data Status a = MakeStatus {