[commit: ghc] wip/nfs-locking: Fix dropDynamic. (d1ade7d)

[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/d1ade7d5917eeea88c2034dc52bb8bf100bfc05a/ghc

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

commit d1ade7d5917eeea88c2034dc52bb8bf100bfc05a
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Jan 13 13:01:30 2015 +0000

    Fix dropDynamic.


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

d1ade7d5917eeea88c2034dc52bb8bf100bfc05a
 src/Ways.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Ways.hs b/src/Ways.hs
index b478a04..24c1a80 100644
--- a/src/Ways.hs
+++ b/src/Ways.hs
@@ -14,7 +14,7 @@ module Ways (
 
     wayHcArgs, 
     wayPrefix,
-    hisuf, osuf, hcsuf,
+    hisuf, osuf, hcsuf, obootsuf, ssuf, libsuf,
     detectWay
     ) where
 
@@ -125,7 +125,7 @@ dropDynamic way
     | way == debugDynamic             = debug
     | way == loggingDynamic           = logging
     | way == threadedLoggingDynamic   = threadedLogging
-    | otherwise = error $ "Cannot drop Dynamic from way " ++ tag way ++ "."
+    | otherwise                       = way
 
 -- Detect way from a given extension. Fail if the result is not unique.
 -- TODO: This may be slow -- optimise if overhead is significant.