Skip to content

Commit

Permalink
Remove unused imports
Browse files Browse the repository at this point in the history
  • Loading branch information
paf31 committed Oct 23, 2015
1 parent 82a2649 commit c193571
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions src/Language/PureScript/Sugar/TypeDeclarations.hs
Original file line number Diff line number Diff line change
Expand Up @@ -25,9 +25,8 @@ module Language.PureScript.Sugar.TypeDeclarations (
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative
#endif
import Control.Monad (forM, when)
import Control.Monad (forM)
import Control.Monad.Error.Class (MonadError(..))
import Control.Monad.Writer.Class (MonadWriter(tell))

import Language.PureScript.AST
import Language.PureScript.Names
Expand All @@ -38,7 +37,7 @@ import Language.PureScript.Traversals
-- |
-- Replace all top level type declarations in a module with type annotations
--
desugarTypeDeclarationsModule :: forall m. (Functor m, Applicative m, MonadError MultipleErrors m, MonadWriter MultipleErrors m) => [Module] -> m [Module]
desugarTypeDeclarationsModule :: forall m. (Functor m, Applicative m, MonadError MultipleErrors m) => [Module] -> m [Module]
desugarTypeDeclarationsModule ms = forM ms $ \(Module ss coms name ds exps) ->
rethrow (addHint (ErrorInModule name)) $
Module ss coms name <$> desugarTypeDeclarations ds <*> pure exps
Expand Down

0 comments on commit c193571

Please sign in to comment.