Permalink
Browse files

Update code for no warn

  • Loading branch information...
cutsea110 committed Feb 13, 2012
1 parent 4f713bd commit 4a2308f7aced1e5da3a16a70f45cd5a55e5d7cdc
Showing with 6 additions and 9 deletions.
  1. +0 −1 Handler/Issue.hs
  2. +0 −1 Handler/Profile.hs
  3. +0 −1 Handler/S3.hs
  4. +0 −1 Handler/User.hs
  5. +1 −2 Model.hs
  6. +5 −3 main.hs
View
@@ -12,7 +12,6 @@ import Foundation
import Yesod
import Control.Applicative ((<$>),(<*>))
import Control.Monad (when, unless, forM, liftM2)
-import Control.Failure
import Data.List (intercalate, intersperse, nub, groupBy)
import Data.Time
import Data.Time.Calendar.WeekDate
View
@@ -16,7 +16,6 @@ import Control.Monad
import Control.Applicative
import Data.Time
import Data.Maybe (fromMaybe, fromJust)
-import qualified Data.Text as T
import Data.Text (Text)
getProfileR :: UserId -> Handler RepHtml
View
@@ -17,7 +17,6 @@ import Foundation
import Yesod
import Data.Time
import qualified Data.ByteString.Lazy as L
-import Data.ByteString.Char8 (pack)
import System.Directory
import System.FilePath
import Text.Cassius (cassiusFile)
View
@@ -3,7 +3,6 @@ module Handler.User where
import Yesod
import Control.Monad (unless, forM)
-import qualified Data.Text as T
import Foundation
View
@@ -6,6 +6,7 @@
{-# LANGUAGE GADTs #-}
{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
{-# OPTIONS_GHC -fno-warn-unused-do-bind #-}
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
module Model where
import Yesod
@@ -14,8 +15,6 @@ import Database.Persist.Store
import System.Locale
import Control.Monad (liftM2)
import Control.Applicative ((<$>),(<*>))
-import Control.Failure (Failure)
-import Control.Monad.Trans.Class
import Data.Char (isHexDigit)
import Data.Int
import Data.Time
View
@@ -1,6 +1,8 @@
+import Prelude (IO)
import Yesod.Default.Config (fromArgs)
-import Yesod.Default.Main (defaultMain)
-import Application (withBISocie)
+import Yesod.Default.Main (defaultMain)
+import Settings (parseExtra)
+import Application (getApplication)
main :: IO ()
-main = defaultMain fromArgs withBISocie
+main = defaultMain (fromArgs parseExtra) getApplication

0 comments on commit 4a2308f

Please sign in to comment.