@@ -10,7 +10,6 @@ import Control.Monad.Trans.Maybe
1010import Control.Monad.Trans.State
1111import Data.Char (toLower)
1212import Data.List
13−import GHC.Real (infinity)
1413import System.Environment (getArgs)
1514import Text.Read (readMaybe)
1615
@@ -165,7 +164,7 @@ ignoringErr a = catch a (\(ErrorCall err :: ErrorCall) ->
165164------------------------------------------------------------------------------
166165
167166makeGraphs :: String -> Config -> String -> IO ()
168−makeGraphs name cfg@Config{..} inputFile =
167+makeGraphs name cfg inputFile =
169168 ignoringErr $ graph inputFile name cfg
170169
171170------------------------------------------------------------------------------