diff options
author | defanor <defanor@uberspace.net> | 2018-02-21 18:55:51 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2018-02-21 18:55:51 +0300 |
commit | 9939aa23bb11b22be9e570c972be6a898b9df8eb (patch) | |
tree | 07bc44208b4337b91cc64ec96a3e422b888cd604 /Pancake.hs | |
parent | 99cd9c84abf3c52970981499875b402d5fb68085 (diff) |
Use Redland bindings instead of rdf4h
It's faster, includes a proper triple store with querying, and
generally should be more useful.
Diffstat (limited to 'Pancake.hs')
-rw-r--r-- | Pancake.hs | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -52,7 +52,6 @@ import Data.Version import System.Console.GetOpt import Text.Regex.TDFA import qualified System.Console.Haskeline as HL -import Control.Concurrent.STM.TVar import Pancake.Common import Pancake.Configuration @@ -82,7 +81,6 @@ data LoopState = LS { history :: Sliding HistoryEntry , interrupted :: Bool , unclutterRegexps :: [(Regex, String)] , columns :: Maybe Int - , rdfCache :: TVar (M.Map String String) } -- | Main event loop's type. @@ -150,7 +148,7 @@ loadDocument sType rawURI = do case M.lookup ext (externalViewers $ conf st) of Nothing -> do uDoc <- tryUnclutter (unclutterRegexps st) effectiveURI rawDoc - doc <- readDoc (conf st) (rdfCache st) uDoc fType effectiveURI + doc <- readDoc (conf st) uDoc fType effectiveURI case doc of Left err -> do putErrLn $ show err @@ -431,7 +429,6 @@ main = do >>= \st -> command (parseCommand (conf st) (unwords cmd)) dir <- getXdgDirectory XdgConfig "pancake" let hfn = dir </> "command_history" - rdfc <- newTVarIO M.empty _ <- runStateT (HL.runInputT (HL.setComplete complete HL.defaultSettings) @@ -448,7 +445,6 @@ main = do , interrupted = False , unclutterRegexps = [] , columns = Nothing - , rdfCache = rdfc } pure () run |