diff --git a/app/Main.hs b/app/Main.hs
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -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")
diff --git a/cdeps.cabal b/cdeps.cabal
--- a/cdeps.cabal
+++ b/cdeps.cabal
@@ -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
diff --git a/src/Language/C/Dependency.x b/src/Language/C/Dependency.x
--- a/src/Language/C/Dependency.x
+++ b/src/Language/C/Dependency.x
@@ -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_