packages feed

cdeps 0.1.1.3 → 0.1.1.4

raw patch · 3 files changed

+8/−14 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

app/Main.hs view
@@ -1,6 +1,7 @@ module Main (main) where  import           Control.Monad+import           Data.Foldable import           Data.Semigroup        hiding (getAll) import           Data.Version          (showVersion) import           Language.C.Dependency@@ -31,7 +32,7 @@     <> cCompletions)  run :: Command -> IO ()-run (Dump cSrc is) = (mapM_ putStrLn <=< getAll is) cSrc+run (Dump cSrc is) = (traverse_ putStrLn <=< getAll is) cSrc  versionInfo :: Parser (a -> a) versionInfo = infoOption ("cdeps version: " ++ showVersion version) (short 'V' <> long "version" <> help "Show version")
cdeps.cabal view
@@ -1,6 +1,6 @@ cabal-version: 1.18 name: cdeps-version: 0.1.1.3+version: 0.1.1.4 license: BSD3 license-file: LICENSE copyright: Copyright: (c) 2018 Vanessa McHale@@ -23,11 +23,6 @@     default: False     manual: True -flag no-executable-    description:-        Disable building the executable-    default: False- library     exposed-modules:         Language.C.Dependency@@ -69,9 +64,6 @@         base -any,         cdeps -any,         optparse-applicative -any-    -    if flag(no-executable)-        buildable: False          if (flag(development) && impl(ghc <8.4))         ghc-options: -Werror
src/Language/C/Dependency.x view
@@ -1,4 +1,5 @@ {+{-# OPTIONS_GHC -fno-warn-unused-imports #-} module Language.C.Dependency ( getIncludes                              , getCDepends                              , getAll@@ -64,18 +65,18 @@ nested_comment = go 1 =<< alexGetInput      where go :: Int -> AlexInput -> Alex Token-          go 0 input = alexSetInput input >> alexMonadScan+          go 0 input = alexSetInput input *> alexMonadScan           go n input =             case alexGetByte input of                 Nothing -> err input                 Just (c, input') ->-                    case Data.Char.chr (fromIntegral c) of-                        '*' ->+                    case c of+                        42 ->                             case alexGetByte input' of                                 Nothing -> err input'                                 Just (47,input_) -> go (n-1) input_                                 Just (_,input_) -> go n input_-                        '/' ->+                        47 ->                             case alexGetByte input' of                                 Nothing -> err input'                                 Just (c',input_) -> go (addLevel c' $ n) input_