Stop generating bogus executable names
commit45d9624a5498a188108571647da36232bc7d2e84
authorDavid Raymond Christiansen <david@davidchristiansen.dk>
dateWed 13 May 2015, 21:30 (11 years ago)
parent64ab360
src/Pkg/PParser.hs+1−1
@@ -64,7 +64,7 @@ pPkg = do reserved "package"; p <- fst <$> identifier
6464
6565pClause :: PParser ()
6666pClause = do reserved "executable"; lchar '=';
67− exec <- iName []
67+ exec <- fst <$> iName []
6868 st <- get
6969 put (st { execout = Just (if isWindows
7070 then ((show exec) ++ ".exe")