diff options
-rwxr-xr-x | tt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -6,7 +6,7 @@ import System.Directory ( doesFileExist , doesDirectoryExist , getDirectoryContents ) -import Data.List (intercalate, stripPrefix, isSuffixOf) +import Data.List (intercalate, stripPrefix, isSuffixOf, sort) import Data.Maybe (fromMaybe, listToMaybe, isNothing, fromJust) import Control.Applicative ((<$>), (<*>)) import Control.Monad (when, filterM, forever, replicateM_) @@ -139,7 +139,7 @@ expand testDir inTree s isDirectory <- doesDirectoryExist dir if isDirectory - then (map (s </>) . filter isPython) <$> getDirectoryContents dir + then (map (s </>) . sort . filter isPython) <$> getDirectoryContents dir else return [s ++ ".py"] {- Stupid project-specific crap detection -} |