hexagoxel
/
butcher
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Clean up imports; Reduce dep footprint s/lens/microlens/

pull/5/head
Lennart Spitzner 2016-10-11 00:27:26 +02:00
parent 66e2737e87
commit 04cb0bdea5
8 changed files with 16 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
butcher.cabal
View File

@ -2,7 +2,7 @@
-- documentation, see http://haskell.org/cabal/users-guide/
name: butcher
version: 0.2.0.0
version: 0.2.0.1
-- synopsis:
-- description:
license: BSD3
@ -36,7 +36,8 @@ library
{ base >=4.8 && <4.10
, free
, unsafe
, lens
, microlens
, microlens-th
, multistate
, pretty
, containers
@ -90,7 +91,8 @@ test-suite tests
, butcher
, free
, unsafe
, lens
, microlens
, microlens-th
, multistate
, pretty
, containers

7
src/UI/Butcher/Monadic/Core.hs
View File

@ -39,12 +39,9 @@ where
import Control.Monad.Free
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
import qualified Control.Monad.Trans.MultiState.Strict as MultiStateS
import Data.Unique (Unique)
import qualified System.Unsafe as Unsafe
import qualified Control.Lens.TH as LensTH
import qualified Control.Lens as Lens
import Control.Lens ( (.=), (%=), (%~), (.~) )
import qualified Lens.Micro as Lens
import Lens.Micro ( (%~), (.~) )
import qualified Text.PrettyPrint as PP
import Text.PrettyPrint ( (<+>), ($$), ($+$) )

8
src/UI/Butcher/Monadic/Flag.hs
View File

@ -21,19 +21,11 @@ where
import Control.Monad.Free
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
import qualified Control.Monad.Trans.MultiState.Strict as MultiStateS
import Data.Unique (Unique)
import qualified System.Unsafe as Unsafe
import qualified Control.Lens.TH as LensTH
import qualified Control.Lens as Lens
import Control.Lens ( (.=), (%=), (%~), (.~) )
import qualified Text.PrettyPrint as PP
import Data.HList.ContainsType
import Data.Dynamic
import UI.Butcher.Monadic.Types
import UI.Butcher.Monadic.Core

8
src/UI/Butcher/Monadic/IO.hs
View File

@ -11,19 +11,11 @@ where
import Control.Monad.Free
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
import qualified Control.Monad.Trans.MultiState.Strict as MultiStateS
import Data.Unique (Unique)
import qualified System.Unsafe as Unsafe
import qualified Control.Lens.TH as LensTH
import qualified Control.Lens as Lens
import Control.Lens ( (.=), (%=), (%~), (.~) )
import qualified Text.PrettyPrint as PP
import Data.HList.ContainsType
import Data.Dynamic
import UI.Butcher.Monadic.Types
import UI.Butcher.Monadic.Core
import UI.Butcher.Monadic.Pretty

8
src/UI/Butcher/Monadic/Param.hs
View File

@ -16,19 +16,11 @@ where
import Control.Monad.Free
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
import qualified Control.Monad.Trans.MultiState.Strict as MultiStateS
import Data.Unique (Unique)
import qualified System.Unsafe as Unsafe
import qualified Control.Lens.TH as LensTH
import qualified Control.Lens as Lens
import Control.Lens ( (.=), (%=), (%~), (.~) )
import qualified Text.PrettyPrint as PP
import Data.HList.ContainsType
import Data.Dynamic
import UI.Butcher.Monadic.Types
import UI.Butcher.Monadic.Core

8
src/UI/Butcher/Monadic/Pretty.hs
View File

@ -25,20 +25,12 @@ where
import Control.Monad.Free
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
import qualified Control.Monad.Trans.MultiState.Strict as MultiStateS
import Data.Unique (Unique)
import qualified System.Unsafe as Unsafe
import qualified Control.Lens.TH as LensTH
import qualified Control.Lens as Lens
import Control.Lens ( (.=), (%=), (%~), (.~) )
import qualified Text.PrettyPrint as PP
import Text.PrettyPrint ( (<+>), ($$), ($+$) )
import Data.HList.ContainsType
import Data.Dynamic
import UI.Butcher.Monadic.Types
import UI.Butcher.Monadic.Core

11
src/UI/Butcher/Monadic/Types.hs
View File

@ -30,16 +30,11 @@ where
#include "prelude.inc"
import Control.Monad.Free
import qualified Control.Monad.Trans.MultiState.Strict as MultiStateS
-- import Data.Unique (Unique)
import qualified System.Unsafe as Unsafe
import qualified Control.Lens.TH as LensTH
import qualified Control.Lens as Lens
import qualified Lens.Micro.TH as LensTH
import qualified Text.PrettyPrint as PP
import Data.Dynamic
data Input = InputString String | InputArgs [String]
@ -156,8 +151,8 @@ instance Show (CommandDesc out) where
--
Lens.makeLenses ''CommandDesc
Lens.makeLenses ''PartDesc
LensTH.makeLenses ''CommandDesc
LensTH.makeLenses ''PartDesc
--

9
srcinc/prelude.inc
View File

@ -26,7 +26,9 @@ import qualified System.Info.Extra
import qualified System.Process.Extra
import qualified System.Time.Extra
import qualified Control.Lens
import qualified Data.Either.Combinators
-- import qualified Control.Lens
-- import qualified Control.Monad.Error.Lens
-- import qualified Control.Parallel.Strategies.Lens
@ -248,12 +250,13 @@ import qualified Data.Char as Char
-- import qualified Data.IORef as IORef
-- import qualified Data.Int as Int
-- import qualified Data.Ix as Ix
-- import qualified Data.Maybe as Maybe
import qualified Data.Maybe as Maybe
-- import qualified Data.Monoid as Monoid
-- import qualified Data.Ord as Ord
-- import qualified Data.Proxy as Proxy
-- import qualified Data.Traversable as Traversable
-- import qualified Data.Void as Void
import qualified Control.Monad.Trans.Writer.Strict as WriterS
#if MIN_VERSION_base(4,9,0)
import qualified GHC.OldList as List
@ -635,5 +638,5 @@ import Control.Monad.Trans.Class ( lift
)
import Control.Monad.Trans.Maybe ( MaybeT (..)
)
import Control.Lens.Operators ( (<&>)
import Lens.Micro ( (<&>)
)