Permalink
Browse files

Fix compiler warnings

  • Loading branch information...
1 parent 234741a commit e5e932fe0f338770166bac112a6f6384f757e3bf @dmpots committed May 10, 2011
View
@@ -103,7 +103,7 @@ runWithInitialFlags fc progEnv cm = toConfig finalState
finalState = execState (configState cm) startState
toConfig :: (ConfigState ConfigMap) -> Configuration
-toConfig state = state {
+toConfig cState = cState {
flags =
FlagConfig {
configureFlags = Map.findWithDefault [] ConfigureFlags configMap
@@ -112,7 +112,7 @@ toConfig state = state {
}
}
where
- configMap = flags state
+ configMap = flags cState
fromFlagConfig :: FlagConfig -> ConfigMap
fromFlagConfig fc =
@@ -8,7 +8,6 @@ module Fibon.Analyse.ExtraStats.GhcStats(
where
import Control.Monad
-import Data.Attoparsec(maybeResult)
import Data.Attoparsec.Char8
import Data.ByteString(ByteString)
import qualified Data.ByteString.Char8 as BC
@@ -21,7 +21,6 @@ import qualified Fibon.Run.SysTools as SysTools
import Control.Monad.Error
import Control.Monad.Reader
import System.Directory
-import System.Exit
import System.FilePath
import System.Process
@@ -19,7 +19,6 @@ import Fibon.Run.Log as Log
import qualified Fibon.Run.SysTools as SysTools
import Statistics.Sample
import System.Directory
-import System.Exit
import System.FilePath
import System.IO
import System.Process

0 comments on commit e5e932f

Please sign in to comment.