[commit: ghc] wip/nfs-locking: Fix extention, see #69 and #70. (26cd11f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/26cd11fb2e334f7a09e53bcd0d0e1dbc4cb646fe/ghc

>---------------------------------------------------------------

commit 26cd11fb2e334f7a09e53bcd0d0e1dbc4cb646fe
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Thu Dec 31 19:12:39 2015 +0000

    Fix extention, see #69 and #70.


>---------------------------------------------------------------

26cd11fb2e334f7a09e53bcd0d0e1dbc4cb646fe
 src/Rules/Generate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rules/Generate.hs b/src/Rules/Generate.hs
index b53b2b8..d8f7129 100644
--- a/src/Rules/Generate.hs
+++ b/src/Rules/Generate.hs
@@ -89,7 +89,7 @@ generatePackageCode _ target @ (PartialTarget stage pkg) =
     in do
         generated ?> \file -> do
             let srcFile = dropBuild file
-                pattern = "//" ++ srcFile <.> "*"
+                pattern = "//" ++ srcFile -<.> "*"
             files <- fmap (filter (pattern ?==)) $ moduleFiles stage pkg
             let gens = [ (f, b) | f <- files, Just b <- [determineBuilder f] ]
             when (length gens /= 1) . putError $