From a238e583659a3edae2a17271ba8976fe647ec36a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 3 Mar 2013 23:27:17 -0400 Subject: [PATCH] cleanup --- Assistant/WebApp/Configurators/Preferences.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Assistant/WebApp/Configurators/Preferences.hs b/Assistant/WebApp/Configurators/Preferences.hs index f327a95945..6f51a5ce60 100644 --- a/Assistant/WebApp/Configurators/Preferences.hs +++ b/Assistant/WebApp/Configurators/Preferences.hs @@ -5,7 +5,7 @@ - Licensed under the GNU AGPL version 3 or higher. -} -{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-} +{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings #-} module Assistant.WebApp.Configurators.Preferences ( getPreferencesR @@ -68,7 +68,6 @@ getPrefs = PrefsForm <*> (annexNumCopies <$> Annex.getGitConfig) <*> inAutoStartFile <*> ((==) <$> (pure $ Just DEBUG) <*> (liftIO $ getLevel <$> getRootLogger)) - where storePrefs :: PrefsForm -> Annex () storePrefs p = do