Permalink
Browse files

Use derived instance for Typeable AppConfig

  • Loading branch information...
1 parent 60d5700 commit fc078d1848fa46edd8a5e0f06f28744d7e0b53d2 @glguy glguy committed Jan 31, 2013
Showing with 1 addition and 11 deletions.
  1. +1 −11 src/Snap/Snaplet/Config.hs
View
@@ -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)
------------------------------------------------------------------------------

0 comments on commit fc078d1

Please sign in to comment.