parsePackage' :: T.Text -> Either String Package

Author: Avi-D-coder

app/Main.hs

@@ -26,7 +26,7 @@ main = do
             | otherwise -> cabal
       gen f = do
         f' <- T.readFile f
-        case parseOnly parsePackage f' of
+        case parsePackage' f' of
           Right r -> do
             let hiePath = fst (splitFileName f) </> "hie.yaml"
             T.writeFile hiePath $ fst sOrC r

src/Hie/Cabal/Parser.hs

@@ -21,6 +21,9 @@ data Package = Package Name [Component]
 data Component = Lib Name Path | Exe Name Path | Test Name Path
   deriving (Show, Eq, Ord)
 
+parsePackage' :: Text -> Either String Package
+parsePackage' = parseOnly parsePackage
+
 parsePackage :: Parser Package
 parsePackage =
   ( do