diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-29 17:20:06 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-29 17:20:06 +0900 |
commit | c57cc5e3b3e1cd32a5204ab677a4ca1331e32d39 (patch) | |
tree | 76d7414ad645a206e7a0c5877392385e65ec5f78 | |
parent | 9ad246fb56fa365a98cc36c20b9ddea91618aa8f (diff) | |
download | srem-c57cc5e3b3e1cd32a5204ab677a4ca1331e32d39.tar.gz |
stylish-haskell
-rw-r--r-- | src/Utility/Emacs.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Utility/Emacs.hs b/src/Utility/Emacs.hs index 7ea7639..34a7ca7 100644 --- a/src/Utility/Emacs.hs +++ b/src/Utility/Emacs.hs @@ -1,4 +1,5 @@ -{-# LANGUAGE DataKinds, TypeOperators #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE TypeOperators #-} module Utility.Emacs ( getEmacsOutput , parseEmacsOutput) where @@ -7,11 +8,11 @@ import Control.Applicative ((<$>)) import Control.Monad (foldM, when) import qualified Control.SremConfig as SremConfig import Data.Maybe.Read +import Data.Modular import System.Directory (getHomeDirectory) import System.Process (readProcess) import Text.Regex.Posix ((=~)) import Types.Reminder -import Data.Modular parseEmacsOutput :: String -> [Reminder] parseEmacsOutput = foldr step [] . drop 2 . lines |