hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Using stringCI.

Browse Source 
Suggested by eagletmt.
This commit is contained in:
Kazu Yamamoto 2011-05-27 10:07:27 +09:00
parent 819d915aae
commit 92777ed539
1 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Cabal.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE OverloadedStrings #-}
module Cabal (initializeGHC) where module Cabal (initializeGHC) where
import Control.Applicative hiding (many) import Control.Applicative hiding (many)
@ -46,21 +47,7 @@ findTarget = Just <$> hs_source_dirs
hs_source_dirs :: Parser [String] hs_source_dirs :: Parser [String]
hs_source_dirs = do hs_source_dirs = do
satisfy $ inClass "hH" stringCI "hs-source-dirs:"
satisfy $ inClass "sS"
char '-'
satisfy $ inClass "sS"
satisfy $ inClass "oO"
satisfy $ inClass "uU"
satisfy $ inClass "rR"
satisfy $ inClass "cC"
satisfy $ inClass "eE"
char '-'
satisfy $ inClass "dD"
satisfy $ inClass "iI"
satisfy $ inClass "rR"
satisfy $ inClass "sS"
char ':'
many (char ' ') many (char ' ')
sepBy1 (many . satisfy $ notInClass " ,\n") (many1 . satisfy $ inClass " ,") sepBy1 (many . satisfy $ notInClass " ,\n") (many1 . satisfy $ inClass " ,")