From de542e52aca7bda48e1bf7f65ad4ec68466ec15c Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 18 Apr 2016 15:28:54 -0700
Subject: [PATCH] web: drop cruft from .ghci

---
 hledger-web/.ghci | 69 -----------------------------------------------
 1 file changed, 69 deletions(-)

diff --git a/hledger-web/.ghci b/hledger-web/.ghci
index 37ea302fe..017b5febc 100644
--- a/hledger-web/.ghci
+++ b/hledger-web/.ghci
@@ -1,70 +1 @@
--- -*- haskell -*-
--- .ghci for hledger-web
-
 :set prompt "hledger-web> "
-
--- yesod
-
-:set -i.:config:dist/build/autogen:app
-:set -XCPP -XTemplateHaskell -XQuasiQuotes -XTypeFamilies -XFlexibleContexts -XGADTs -XOverloadedStrings -XMultiParamTypeClasses -XGeneralizedNewtypeDeriving -XEmptyDataDecls -XDeriveDataTypeable
-import Prelude
-
--- hledger-web
-
-:def serve const . return $ ":main --server --port 3000"
-
--- misc
-
-import Control.Applicative
-import Data.Char
-import Data.List
-import qualified Data.Text as T
-import Data.Text (Text)
-
-:set prompt "λ "
-:def hlint  \s -> return $ ":! hlint \"" ++ s ++ "\""
-:def hoogle \s -> return $ ":! hoogle --count=15 \"" ++ s ++ "\""
-:def doc    \s -> return $ ":! hoogle --info \"" ++ s ++ "\""
-:def pl     \s -> return $ ":! pointfree \"" ++ s ++ "\""
-
--- extra
-
--- -- hayoo search (requires hsdev, mtl)
--- -- λ :hayoo (a -> c) -> (b -> c)
--- -- either :: (a -> c) -> (b -> c) -> Either a b -> c
--- --     Case analysis for the Either type.
--- --      If the value is Left a, apply the first function to a;
--- --      if it is Right b, apply the second function to b.
--- --     -- Defined in 'Prelude', base
--- import Control.Monad.Error
--- import HsDev.Tools.Hayoo
--- :{
--- let
---     showHayooFunction f =
---         (hayooName f ++ " :: " ++ hayooSignature f) :
---         (map ('\t':) $
---             lines (untagDescription (hayooDescription f)) ++
---             ["-- Defined in '" ++ hayooModule f ++ "', " ++ hayooPackage f])
---     showHayoo = concatMap showHayooFunction . hayooFunctions
--- :}
--- :def hayoo \s -> return $ "runErrorT (hayoo \"" ++ s ++ "\") >>= (mapM_ putStrLn) . either (return . (\"Error: \" ++)) showHayoo"
-
--- -- watch for changes and restart, like yesod devel in interpreted mode (requires fsnotify)
--- -- from https://gist.github.com/rehno-lindeque/10490026
--- import System.FSNotify
--- import Data.String
--- import Control.Concurrent.MVar
--- import Control.Concurrent
--- :{
--- :def serveAndReload const (withManager (\manager -> 
---      do putStrLn "Listening to changes, press any key to stop..."
---         lock <- newEmptyMVar
---         watchTree manager (fromString ".") (const True) (const $ putMVar lock True)
---         forkIO (getLine >> putMVar lock False)
---         rerun <- readMVar lock
---         return $ if rerun 
---           then ":reload \n :main Development\n :serveAndReload"
---           else ""
---      ))
--- :}
-