@@ -8,6 +8,7 @@ import qualified Data.Yaml as Y
8import Data.Yaml (FromJSON(..), (.:))
8import Data.Yaml (FromJSON(..), (.:))
9import Text.RawString.QQ
9import Text.RawString.QQ
10import Data.ByteString (ByteString)
10import Data.ByteString (ByteString)
11+import Control.Applicative
12configYaml :: ByteString
13configYaml :: ByteString
13configYaml = [r|
14configYaml = [r|