From 8e92e6e11d2b3b0bfb5ac9d68f347219493e6380 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Wed, 23 Sep 2020 17:44:40 +0200 Subject: split into library + executables --- config/kmein.hs | 10 +++++----- config/tv.hs | 16 ++++++++-------- 2 files changed, 13 insertions(+), 13 deletions(-) (limited to 'config') diff --git a/config/kmein.hs b/config/kmein.hs index 0ffdba1..1483df2 100644 --- a/config/kmein.hs +++ b/config/kmein.hs @@ -3,9 +3,11 @@ module Main (main) where -import Action -import Core -import State +import Much.Action +import Much.Core +import Much.State +import Much.TreeView +import qualified Notmuch.Message as Notmuch import Blessings.String import Control.Monad @@ -14,10 +16,8 @@ import Scanner import System.Posix.Signals import Text.Hyphenation import Text.LineBreak -import TreeView import qualified Data.Tree as Tree import qualified Data.Tree.Zipper as Z -import qualified Notmuch.Message as Notmuch {- notmuch's special tags are: diff --git a/config/tv.hs b/config/tv.hs index b2ff124..a00756d 100644 --- a/config/tv.hs +++ b/config/tv.hs @@ -4,7 +4,7 @@ module Main (main) where -import Action +import Much.Action import Blessings.String import Control.Concurrent import Control.DeepSeq (rnf) @@ -12,28 +12,28 @@ import Control.Exception import Control.Monad import Control.Monad.Trans.Class (lift) import Control.Monad.Trans.Except -import Core +import Much.Core import Data.Aeson (eitherDecode') import Data.CaseInsensitive (CI) import Data.Foldable (foldrM) import Data.List (intercalate) import Data.Maybe import Data.Time -import ParseMail (readMail) +import Much.ParseMail (readMail) import Safe import Scanner -import State +import Much.State import System.Directory import System.Environment import System.Exit import System.IO import System.Process -import TagUtils +import Much.TagUtils import Text.Hyphenation import Text.LineBreak -import TreeSearch -import TreeView -import Utils +import Much.TreeSearch +import Much.TreeView +import Much.Utils import qualified Data.ByteString as BS import qualified Data.ByteString.Lazy.Char8 as LBS8 import qualified Data.CaseInsensitive as CI -- cgit v1.2.3