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

using dropWhileEnd (#193).

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-26 15:38:02 +09:00
parent 8238c632a8
commit 6e4d073c7d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Language/Haskell/GhcMod/Cradle.hs
View File

@ -112,7 +112,10 @@ getPackageDbDir sconf = do
return path return path
where where
parse = head . filter ("package-db:" `isPrefixOf`) . lines parse = head . filter ("package-db:" `isPrefixOf`) . lines
extractValue = fst . break isSpace . dropWhile isSpace . drop pkgDbKeyLen extractValue = dropWhileEnd isSpace . dropWhile isSpace . drop pkgDbKeyLen
-- dropWhileEnd is not provided prior to base 4.5.0.0.
dropWhileEnd :: (a -> Bool) -> [a] -> [a]
dropWhileEnd p = foldr (\x xs -> if p x && null xs then [] else x : xs) []
-- | Adding necessary GHC options to the package db. -- | Adding necessary GHC options to the package db.
-- Exception is thrown if the string argument is incorrect. -- Exception is thrown if the string argument is incorrect.