diff --git a/src/Snap/Snaplet/Config.hs b/src/Snap/Snaplet/Config.hs index 5a46ec72..b40519f5 100644 --- a/src/Snap/Snaplet/Config.hs +++ b/src/Snap/Snaplet/Config.hs @@ -15,17 +15,7 @@ import System.Console.GetOpt -- | AppConfig contains the config options for command line arguments in -- snaplet-based apps. newtype AppConfig = AppConfig { appEnvironment :: Maybe String } - - ------------------------------------------------------------------------------- --- | The Typeable instance is here so Snap can be dynamically executed with --- Hint. -appConfigTyCon :: TyCon -appConfigTyCon = mkTyCon "Snap.Snaplet.Config.AppConfig" -{-# NOINLINE appConfigTyCon #-} - -instance Typeable AppConfig where - typeOf _ = mkTyConApp appConfigTyCon [] + deriving (Typeable) ------------------------------------------------------------------------------