yogsototh/wai-devel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove warns

Browse source
This commit is contained in:
Yann Esposito 2016-02-29 17:46:53 +01:00
parent 30d4907cde
commit 46b3de8ebf
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Devel/Compile.hs
View file

@ -44,7 +44,7 @@ import Devel.Types
import System.FilePath.Posix (takeExtension, pathSeparator)
import System.Directory (doesFileExist)
import Data.List (union, delete, isInfixOf, nub, (\\))
import Data.List (union, delete, isInfixOf, nub)
import Data.Maybe (fromMaybe)
import Control.Monad (filterM)
@ -88,8 +88,8 @@ getSourceList srcDir cabalSrcList = do
-- nub to remove duplicates yet again.
sourceList = nub $ delete "app/DevelMain.hs" $ delete "app/devel.hs" sourceList'
-- Drop leading "./" in filepaths with `map (\x -> x \\ "./") sourceList`
return $ map removeLeadingDotSlash sourceList -- sourceList
-- Drop leading "./" in filepaths
return $ map removeLeadingDotSlash sourceList
where
removeLeadingDotSlash ('.':'/':xs) = xs
removeLeadingDotSlash xs = xs