Skip to content

Commit

Permalink
Tidying up
Browse files Browse the repository at this point in the history
  • Loading branch information
nkpart committed Apr 13, 2012
1 parent fffffb9 commit 57b9948
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 6 deletions.
2 changes: 2 additions & 0 deletions .gitignore
Expand Up @@ -8,3 +8,5 @@ build
test-output
cabal-dev
dstroot
tags
/.hsenv/
3 changes: 1 addition & 2 deletions Kit/Contents.hs
@@ -1,4 +1,3 @@
{-# LANGUAGE PackageImports #-}
module Kit.Contents (
KitContents(..),
readKitContents,
Expand Down Expand Up @@ -29,7 +28,7 @@ instance Packageable KitContents where
packageVersion = packageVersion . contentSpec

namedPrefix :: KitContents -> Maybe String
namedPrefix kc = fmap (\s -> "//" ++ (packageFileName kc) ++ "\n" ++ s) $ contentPrefix kc
namedPrefix kc = fmap (\s -> "//" ++ packageFileName kc ++ "\n" ++ s) $ contentPrefix kc

readKitContents :: (Applicative m, MonadIO m) => AbsolutePath -> KitSpec -> m KitContents
readKitContents absKitDir spec =
Expand Down
7 changes: 3 additions & 4 deletions Kit/Util.hs
Expand Up @@ -6,12 +6,11 @@ module Kit.Util(
module Control.Monad,
module System.Directory,
module System.FilePath.Posix,
module Debug.Trace,
module Control.Monad.Trans,
Color(..),
(>>>)
) where
import Debug.Trace

import System.Directory
import System.FilePath.Posix
import System.FilePath.Glob (globDir1, compile)
Expand All @@ -26,8 +25,8 @@ module Kit.Util(
import Control.Arrow
import Control.Applicative
import Control.Monad
import "mtl" Control.Monad.Error
import "mtl" Control.Monad.Trans
import Control.Monad.Error
import Control.Monad.Trans
import System.Cmd

import System.Console.ANSI
Expand Down

0 comments on commit 57b9948

Please sign in to comment.