Fixed compilation problems with ghc 6.10.1 Added handling for hdbc co…

…nnection.

Config/App.hs

@@ -14,6 +14,7 @@ import System.Log.Logger
 
 -- Your favorite HDBC driver
 import Database.HDBC.PostgreSQL
+import Database.HDBC
 
 ----------------------------------------------------------------
 -- Environment settings
@@ -29,7 +30,8 @@ newAppEnvironment = AppEnvironment
 ----------------------------------------------------------------
 databaseConnection :: Maybe (IO Connection)
 -- databaseConnection = Nothing
-databaseConnection = Just $ connectPostgreSQL "host=localhost dbname=turbinado user=turbinado password=turbinado"
+databaseConnection = Just $ handleSqlError 
+                     $ connectPostgreSQL "host=localhost dbname=turbinado user=postgres password=12457890"
 
 ----------------------------------------------------------------
 -- RequestHandler Filter List additions

Turbinado/Controller.hs

@@ -27,7 +27,7 @@ module Turbinado.Controller (
         module Turbinado.Environment.ViewData
         ) where
 
-import Control.Exception (catchDyn)
+import Control.OldException (catchDyn)
 import Control.Monad
 import Control.Monad.State
 import Control.Monad.Trans (MonadIO(..))

Turbinado/Controller/Exception.hs

@@ -14,7 +14,7 @@ module Turbinado.Controller.Exception (
 	) where
 
 import Data.Typeable
-import Control.Exception (throwDyn)
+import Control.OldException (throwDyn)
 
 data Exception
 	=  ParameterLookupFailed String	-- ^ User tried to do an irrefutable parameter lookup

Turbinado/Controller/Monad.hs

@@ -10,7 +10,7 @@ module Turbinado.Controller.Monad (
         doIO, catch
         ) where
 
-import Control.Exception (catchDyn)
+import Control.OldException (catchDyn)
 
 import Control.Monad.State
 import Control.Monad.Trans (MonadIO(..))

Turbinado/Server/Exception.hs

@@ -4,11 +4,11 @@ module Turbinado.Server.Exception (
         , catchTurbinado
         , throwTurbinado
         , throwTurbinadoTo
-        , module Control.Exception 
+        , module Control.OldException 
         ) where
 
 import Data.Typeable
-import Control.Exception
+import Control.OldException
 import Control.Concurrent(ThreadId)
 
 catchTurbinado :: IO a -> (TurbinadoException -> IO a) -> IO a

Turbinado/View.hs

@@ -25,7 +25,7 @@ module Turbinado.View (
         module Turbinado.Environment.ViewData
         ) where
 
-import Control.Exception (catchDyn)
+import Control.OldException (catchDyn)
 import Control.Monad
 import Control.Monad.State
 import Control.Monad.Trans (MonadIO(..))

Turbinado/View/Exception.hs

@@ -18,7 +18,7 @@ module Turbinado.View.Exception (
 	) where
 
 import Data.Typeable
-import Control.Exception (throwDyn)
+import Control.OldException (throwDyn)
 
 data Exception
 	=  ParameterLookupFailed String	-- ^ User tried to do an irrefutable parameter lookup

Turbinado/View/Monad.hs

@@ -8,7 +8,7 @@ module Turbinado.View.Monad (
         doIO, catch
         ) where
 
-import Control.Exception (catchDyn)
+import Control.OldException (catchDyn)
 
 import Control.Monad.State
 import Control.Monad.Trans (MonadIO(..))

turbinado.cabal

@@ -33,7 +33,7 @@ Executable turbinado
             UndecidableInstances,
             PatternGuards,
             MultiParamTypeClasses,
-            PatternSignatures,
+            ScopedTypeVariables
             DeriveDataTypeable