implicit-hie 0.1.2.3 → 0.1.2.4

raw patch · 4 files changed

+14/−5 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

app/Main.hs +2/−1
implicit-hie.cabal +2/−2
src/Hie/Cabal/Parser.hs +2/−2
test/Spec.hs +8/−0

app/Main.hs view

@@ -20,7 +20,8 @@     _ -> stackYamlPkgs pwd   when (null cfs) $     error $-      "No .cabal files found under"+      "Used" <> name+        <> "\n No .cabal files found under"         <> pwd         <> "\n You may need to run stack build."   pkgs <- catMaybes <$> mapM (nestedPkg pwd) (concat cfs)

implicit-hie.cabal view

@@ -7,7 +7,7 @@ -- hash: b2b829a658e33ea328c725dea732391089d03ffd2a216d413a75d88aefa7c181  name:               implicit-hie-version:            0.1.2.3+version:            0.1.2.4 description:   Auto generate a stack or cabal multi component hie.yaml file @@ -20,7 +20,7 @@ copyright:          2020 license:            BSD3 license-file:       LICENSE-tested-with:        GHC ==8.8.3+tested-with:        GHC ==8.8.3 || ==8.10.1 build-type:         Simple extra-source-files:   ChangeLog.md

src/Hie/Cabal/Parser.hs view

@@ -105,12 +105,12 @@   peekChar >>= \case     Just c       | isEndOfLine c ->-        endOfLine *> indent i $> ()+        endOfLine >> indent i $> ()     _ -> pure ()  -- | Comma or space separated list, with optional new lines. parseList :: Indent -> Parser [Text]-parseList i = sepBy parseString (optSkipToNextLine i *> skipMany (char ',') *> optSkipToNextLine i)+parseList i = sepBy parseString (optSkipToNextLine i >> skipMany (char ',') >> optSkipToNextLine i) <|> pure []  pathMain :: Indent -> [Text] -> Text -> [Text] -> [Text] -> Parser [Text] pathMain i p m o a =

test/Spec.hs view

@@ -116,6 +116,14 @@                         Comp Exe "gen-hie" "app/Hie/Executable/Helper.hs",                         Comp Exe "gen-hie" "app/Hie/Executable/Utils.hs"                       ]+  describe "Should Succeed" $+    it "succesfully parses single other-modules" $+      ("other-modules: test\ndefault-language:   Haskell2011" :: Text) ~?> field 0 "other-modules" parseList+        `leavesUnconsumed` "default-language:   Haskell2011"+  describe "Should Succeed" $+    it "succesfully parses empty other-modules" $+      ("other-modules: test\ndefault-language:   Haskell2011" :: Text) ~?> field 0 "other-modules" parseList+        `leavesUnconsumed` "default-language:   Haskell2011"  exeSection :: Text exeSection =