snap 0.4.2 → 0.4.3

raw patch · 2 files changed

+4/−6 lines, 2 files

Files

• snap.cabal +1/−1
• src/Snap/Extension/Loader/Devel.hs +3/−5

@@ -1,5 +1,5 @@ name:           snap-version:        0.4.2+version:        0.4.3 synopsis:       Snap: A Haskell Web Framework: project starter executable and glue code library description:    Snap Framework project starter executable and glue code library license:        BSD3

@@ -11,7 +11,7 @@  import           Control.Monad (liftM2) -import           Data.List (groupBy, intercalate, isPrefixOf, nub)+import           Data.List import           Data.Maybe (catMaybes) import           Data.Time.Clock (diffUTCTime, getCurrentTime) @@ -79,13 +79,11 @@     srcOpts = filter (\x -> "-i" `isPrefixOf` x                             && not ("-idist" `isPrefixOf` x)) args -    toCopy = init' $ dropWhile (not . ("-package" `isPrefixOf`)) args+    toCopy = filter (not . isSuffixOf ".hs") $+             dropWhile (not . ("-package" `isPrefixOf`)) args     copy = map (intercalate " ") . groupBy (\_ s -> not $ "-" `isPrefixOf` s)      opts = hideAll ++ srcOpts ++ copy toCopy--    init' [] = []-    init' xs = init xs   ------------------------------------------------------------------------------