Skip to content

Commit

Permalink
Use derived instance for Typeable AppConfig
Browse files Browse the repository at this point in the history
  • Loading branch information
glguy committed Jan 31, 2013
1 parent 60d5700 commit fc078d1
Showing 1 changed file with 1 addition and 11 deletions.
12 changes: 1 addition & 11 deletions src/Snap/Snaplet/Config.hs
Expand Up @@ -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)


------------------------------------------------------------------------------
Expand Down

0 comments on commit fc078d1

Please sign in to comment.